library(ncdf4)
library(raster)
## Loading required package: sp
library(rgdal)
## Please note that rgdal will be retired by the end of 2023,
## plan transition to sf/stars/terra functions using GDAL and PROJ
## at your earliest convenience.
## 
## rgdal: version: 1.5-32, (SVN revision 1176)
## Geospatial Data Abstraction Library extensions to R successfully loaded
## Loaded GDAL runtime: GDAL 3.4.2, released 2022/03/08
## Path to GDAL shared files: /Library/Frameworks/R.framework/Versions/4.1/Resources/library/rgdal/gdal
## GDAL binary built with GEOS: FALSE 
## Loaded PROJ runtime: Rel. 8.2.1, January 1st, 2022, [PJ_VERSION: 821]
## Path to PROJ shared files: /Library/Frameworks/R.framework/Versions/4.1/Resources/library/rgdal/proj
## PROJ CDN enabled: FALSE
## Linking to sp version:1.5-0
## To mute warnings of possible GDAL/OSR exportToProj4() degradation,
## use options("rgdal_show_exportToProj4_warnings"="none") before loading sp or rgdal.
library(ggplot2)
library(tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──
## ✓ tibble  3.1.6     ✓ dplyr   1.0.7
## ✓ tidyr   1.1.4     ✓ stringr 1.4.0
## ✓ readr   2.1.0     ✓ forcats 0.5.1
## ✓ purrr   0.3.4
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x tidyr::extract() masks raster::extract()
## x dplyr::filter()  masks stats::filter()
## x dplyr::lag()     masks stats::lag()
## x dplyr::select()  masks raster::select()
library(janitor)
## 
## Attaching package: 'janitor'
## The following object is masked from 'package:raster':
## 
##     crosstab
## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test
## All chlorophyll-a data were mapped monthly files from the Aqua MODIS satellite that were publicly available from: 
## https://oceancolor.gsfc.nasa.gov/data/10.5067/AQUA/MODIS/L3M/CHL/2018/

#NASA Goddard Space Flight Center, Ocean Ecology Laboratory, Ocean Biology Processing Group. Moderate-resolution Imaging Spectroradiometer (MODIS) Aqua Chlorophyll Data; 2018 Reprocessing. NASA OB.DAAC, Greenbelt, MD, USA. doi: 10.5067/AQUA/MODIS/L3M/CHL/2018.Accessed on 07/20/2022

## Monthly binned files were averaged to align with the seasonal sampling scheme of SBC LTER. Seasons corresponded to: Winter = Dec, Jan, Feb; Spring = Mar, Apr, May, Summer = June, July, August; Fall = Sep, Oct, Nov

### 2002 jul
raster_2002jul <- "A20021822002212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2002jula <- raster(raster_2002jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2002jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20021822002212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
ROI <- extent(-120.5,-119.5, 33.9, 34.6)
ROI
## class      : Extent 
## xmin       : -120.5 
## xmax       : -119.5 
## ymin       : 33.9 
## ymax       : 34.6
r.chl.2002jul <- crop(raster_2002jula, ROI)

# Santa Barbara Coastal LTER, D. Reed, and R. Miller. 2021. SBC LTER: Reef: Kelp Forest Community Dynamics: Transect depth data ver 7. Environmental Data Initiative. https://doi.org/10.6073/pasta/c4f5b56d546309d0fa1d52a61bfb42d4 (Accessed 2022-09-27).
# Read in SBC LTER benthic transect locations:
coordinates_a <- read.csv("Benthic_Transect_Depths_coors.csv") %>% 
  janitor::clean_names() %>% 
  dplyr::select(site, latitude, longitude) %>% 
  group_by(site) %>% 
  summarise(lat = mean(latitude), lon = mean(longitude))

# Modify the reef locations by 2km offshore to reduce likelihood of bin overlap with land (Chl files are in 4km bins)
coordinates <- coordinates_a %>% 
  mutate(lat_off = case_when(
    site == "ABUR" ~ (lat - 0.018),
    site == "AHND" ~ (lat - 0.018),
    site == "AQUE" ~ (lat - 0.018),
    site == "BULL" ~ (lat - 0.018),
    site == "CARP" ~ (lat - 0.018),
    site == "GOLB" ~ (lat - 0.018),
    site == "IVEE" ~ (lat - 0.018),
    site == "MOHK" ~ (lat - 0.018),
    site == "NAPL" ~ (lat - 0.018),
    site == "SCDI" ~ (lat + 0.018),
    site == "SCTW" ~ (lat + 0.018)))

lat.pts <- coordinates$lat_off
lon.pts <- coordinates$lon
extract.pts <- cbind(lon.pts, lat.pts)
chl.2002jul <- raster::extract(r.chl.2002jul, extract.pts, sp = T)

plot(r.chl.2002jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2002 aug
raster_2002aug <- "A20022132002243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2002auga <- raster(raster_2002aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2002auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20022132002243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2002aug <- crop(raster_2002auga, ROI)

chl.2002aug <- raster::extract(r.chl.2002aug, extract.pts, sp = T)

plot(r.chl.2002aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2002 sep
raster_2002sep <- "A20022442002273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2002sepa <- raster(raster_2002sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2002sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20022442002273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2002sep <- crop(raster_2002sepa, ROI)

chl.2002sep <- raster::extract(r.chl.2002sep, extract.pts, sp = T)

plot(r.chl.2002sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2002 oct
raster_2002oct <- "A20022742002304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2002octa <- raster(raster_2002oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2002octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20022742002304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2002oct <- crop(raster_2002octa, ROI)

chl.2002oct <- raster::extract(r.chl.2002oct, extract.pts, sp = T)

plot(r.chl.2002oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2002 nov
raster_2002nov <- "A20023052002334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2002nova <- raster(raster_2002nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2002nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20023052002334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2002nov <- crop(raster_2002nova, ROI)

chl.2002nov <- raster::extract(r.chl.2002nov, extract.pts, sp = T)

plot(r.chl.2002nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2002 dec
raster_2002dec <- "A20023352002365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2002deca <- raster(raster_2002dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2002deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20023352002365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2002dec <- crop(raster_2002deca, ROI)

chl.2002dec <- raster::extract(r.chl.2002dec, extract.pts, sp = T)

plot(r.chl.2002dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2003 jan
raster_2003jan <- "A20030012003031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2003jana <- raster(raster_2003jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2003jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20030012003031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2003jan <- crop(raster_2003jana, ROI)

chl.2003jan <- raster::extract(r.chl.2003jan, extract.pts, sp = T)

plot(r.chl.2003jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2003 feb
raster_2003feb <- "A20030322003059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2003feba <- raster(raster_2003feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2003feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20030322003059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2003feb <- crop(raster_2003feba, ROI)

chl.2003feb <- raster::extract(r.chl.2003feb, extract.pts, sp = T)

plot(r.chl.2003feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2003 mar
raster_2003mar <- "A20030602003090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2003mara <- raster(raster_2003mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2003mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20030602003090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2003mar <- crop(raster_2003mara, ROI)

chl.2003mar <- raster::extract(r.chl.2003mar, extract.pts, sp = T)

plot(r.chl.2003mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2003 apr
raster_2003apr <- "A20030912003120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2003apra <- raster(raster_2003apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2003apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20030912003120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2003apr <- crop(raster_2003apra, ROI)

chl.2003apr <- raster::extract(r.chl.2003apr, extract.pts, sp = T)

plot(r.chl.2003apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2003 may
raster_2003may <- "A20031212003151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2003maya <- raster(raster_2003may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2003maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20031212003151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2003may <- crop(raster_2003maya, ROI)

chl.2003may <- raster::extract(r.chl.2003may, extract.pts, sp = T)

plot(r.chl.2003may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2003 jun
raster_2003jun <- "A20031522003181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2003juna <- raster(raster_2003jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2003juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20031522003181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2003jun <- crop(raster_2003juna, ROI)

chl.2003jun <- raster::extract(r.chl.2003jun, extract.pts, sp = T)

plot(r.chl.2003jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2003 jul
raster_2003jul <- "A20031822003212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2003jula <- raster(raster_2003jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2003jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20031822003212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2003jul <- crop(raster_2003jula, ROI)

chl.2003jul <- raster::extract(r.chl.2003jul, extract.pts, sp = T)

plot(r.chl.2003jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2003 aug
raster_2003aug <- "A20032132003243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2003auga <- raster(raster_2003aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2003auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20032132003243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2003aug <- crop(raster_2003auga, ROI)

chl.2003aug <- raster::extract(r.chl.2003aug, extract.pts, sp = T)

plot(r.chl.2003aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2003 sep
raster_2003sep <- "A20032442003273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2003sepa <- raster(raster_2003sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2003sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20032442003273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2003sep <- crop(raster_2003sepa, ROI)

chl.2003sep <- raster::extract(r.chl.2003sep, extract.pts, sp = T)

plot(r.chl.2003sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2003 oct
raster_2003oct <- "A20032742003304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2003octa <- raster(raster_2003oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2003octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20032742003304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2003oct <- crop(raster_2003octa, ROI)

chl.2003oct <- raster::extract(r.chl.2003oct, extract.pts, sp = T)

plot(r.chl.2003oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2003 nov
raster_2003nov <- "A20033052003334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2003nova <- raster(raster_2003nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2003nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20033052003334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2003nov <- crop(raster_2003nova, ROI)

chl.2003nov <- raster::extract(r.chl.2003nov, extract.pts, sp = T)

plot(r.chl.2003nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2003 dec
raster_2003dec <- "A20033352003365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2003deca <- raster(raster_2003dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2003deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20033352003365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2003dec <- crop(raster_2003deca, ROI)

chl.2003dec <- raster::extract(r.chl.2003dec, extract.pts, sp = T)

plot(r.chl.2003dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2004 jan
raster_2004jan <- "A20040012004031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2004jana <- raster(raster_2004jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2004jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20040012004031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2004jan <- crop(raster_2004jana, ROI)

chl.2004jan <- raster::extract(r.chl.2004jan, extract.pts, sp = T)

plot(r.chl.2004jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2004 feb
raster_2004feb <- "A20040322004060.L3m_MO_CHL_chlor_a_4km.nc"
raster_2004feba <- raster(raster_2004feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2004feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20040322004060.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2004feb <- crop(raster_2004feba, ROI)

chl.2004feb <- raster::extract(r.chl.2004feb, extract.pts, sp = T)

plot(r.chl.2004feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2004 mar
raster_2004mar <- "A20040612004091.L3m_MO_CHL_chlor_a_4km.nc"
raster_2004mara <- raster(raster_2004mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2004mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20040612004091.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2004mar <- crop(raster_2004mara, ROI)

chl.2004mar <- raster::extract(r.chl.2004mar, extract.pts, sp = T)

plot(r.chl.2004mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2004 apr
raster_2004apr <- "A20040922004121.L3m_MO_CHL_chlor_a_4km.nc"
raster_2004apra <- raster(raster_2004apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2004apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20040922004121.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2004apr <- crop(raster_2004apra, ROI)

chl.2004apr <- raster::extract(r.chl.2004apr, extract.pts, sp = T)

plot(r.chl.2004apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2004 may
raster_2004may <- "A20041222004152.L3m_MO_CHL_chlor_a_4km.nc "
raster_2004maya <- raster(raster_2004may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2004maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20041222004152.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2004may <- crop(raster_2004maya, ROI)

chl.2004may <- raster::extract(r.chl.2004may, extract.pts, sp = T)

plot(r.chl.2004may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2004 jun
raster_2004jun <- "A20041532004182.L3m_MO_CHL_chlor_a_4km.nc"
raster_2004juna <- raster(raster_2004jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2004juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20041532004182.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2004jun <- crop(raster_2004juna, ROI)

chl.2004jun <- raster::extract(r.chl.2004jun, extract.pts, sp = T)

plot(r.chl.2004jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2004 jul
raster_2004jul <- "A20041832004213.L3m_MO_CHL_chlor_a_4km.nc"
raster_2004jula <- raster(raster_2004jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2004jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20041832004213.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2004jul <- crop(raster_2004jula, ROI)

chl.2004jul <- raster::extract(r.chl.2004jul, extract.pts, sp = T)

plot(r.chl.2004jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2004 aug
raster_2004aug <- "A20042142004244.L3m_MO_CHL_chlor_a_4km.nc"
raster_2004auga <- raster(raster_2004aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2004auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20042142004244.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2004aug <- crop(raster_2004auga, ROI)

chl.2004aug <- raster::extract(r.chl.2004aug, extract.pts, sp = T)

plot(r.chl.2004aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2004 sep
raster_2004sep <- "A20042452004274.L3m_MO_CHL_chlor_a_4km.nc"
raster_2004sepa <- raster(raster_2004sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2004sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20042452004274.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2004sep <- crop(raster_2004sepa, ROI)

chl.2004sep <- raster::extract(r.chl.2004sep, extract.pts, sp = T)

plot(r.chl.2004sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2004 oct
raster_2004oct <- "A20042752004305.L3m_MO_CHL_chlor_a_4km.nc"
raster_2004octa <- raster(raster_2004oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2004octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20042752004305.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2004oct <- crop(raster_2004octa, ROI)

chl.2004oct <- raster::extract(r.chl.2004oct, extract.pts, sp = T)

plot(r.chl.2004oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2004 nov
raster_2004nov <- "A20043062004335.L3m_MO_CHL_chlor_a_4km.nc"
raster_2004nova <- raster(raster_2004nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2004nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20043062004335.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2004nov <- crop(raster_2004nova, ROI)

chl.2004nov <- raster::extract(r.chl.2004nov, extract.pts, sp = T)

plot(r.chl.2004nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2004 dec
raster_2004dec <- "A20043362004366.L3m_MO_CHL_chlor_a_4km.nc"
raster_2004deca <- raster(raster_2004dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2004deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20043362004366.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2004dec <- crop(raster_2004deca, ROI)

chl.2004dec <- raster::extract(r.chl.2004dec, extract.pts, sp = T)

plot(r.chl.2004dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2005 jan
raster_2005jan <- "A20050012005031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2005jana <- raster(raster_2005jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2005jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20050012005031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2005jan <- crop(raster_2005jana, ROI)

chl.2005jan <- raster::extract(r.chl.2005jan, extract.pts, sp = T)

plot(r.chl.2005jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2005 feb
raster_2005feb <- "A20050322005059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2005feba <- raster(raster_2005feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2005feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20050322005059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2005feb <- crop(raster_2005feba, ROI)

chl.2005feb <- raster::extract(r.chl.2005feb, extract.pts, sp = T)

plot(r.chl.2005feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2005 mar
raster_2005mar <- "A20050602005090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2005mara <- raster(raster_2005mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2005mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20050602005090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2005mar <- crop(raster_2005mara, ROI)

chl.2005mar <- raster::extract(r.chl.2005mar, extract.pts, sp = T)

plot(r.chl.2005mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2005 apr
raster_2005apr <- "A20050912005120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2005apra <- raster(raster_2005apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2005apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20050912005120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2005apr <- crop(raster_2005apra, ROI)

chl.2005apr <- raster::extract(r.chl.2005apr, extract.pts, sp = T)

plot(r.chl.2005apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2005 may
raster_2005may <- "A20051212005151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2005maya <- raster(raster_2005may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2005maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20051212005151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2005may <- crop(raster_2005maya, ROI)

chl.2005may <- raster::extract(r.chl.2005may, extract.pts, sp = T)

plot(r.chl.2005may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2005 jun
raster_2005jun <- "A20051522005181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2005juna <- raster(raster_2005jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2005juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20051522005181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2005jun <- crop(raster_2005juna, ROI)

chl.2005jun <- raster::extract(r.chl.2005jun, extract.pts, sp = T)

plot(r.chl.2005jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2005 jul
raster_2005jul <- "A20051822005212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2005jula <- raster(raster_2005jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2005jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20051822005212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2005jul <- crop(raster_2005jula, ROI)

chl.2005jul <- raster::extract(r.chl.2005jul, extract.pts, sp = T)

plot(r.chl.2005jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2005 aug
raster_2005aug <- "A20052132005243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2005auga <- raster(raster_2005aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2005auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20052132005243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2005aug <- crop(raster_2005auga, ROI)

chl.2005aug <- raster::extract(r.chl.2005aug, extract.pts, sp = T)

plot(r.chl.2005aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2005 sep
raster_2005sep <- "A20052442005273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2005sepa <- raster(raster_2005sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2005sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20052442005273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2005sep <- crop(raster_2005sepa, ROI)

chl.2005sep <- raster::extract(r.chl.2005sep, extract.pts, sp = T)

plot(r.chl.2005sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2005 oct
raster_2005oct <- "A20052742005304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2005octa <- raster(raster_2005oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2005octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20052742005304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2005oct <- crop(raster_2005octa, ROI)

chl.2005oct <- raster::extract(r.chl.2005oct, extract.pts, sp = T)

plot(r.chl.2005oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2005 nov
raster_2005nov <- "A20053052005334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2005nova <- raster(raster_2005nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2005nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20053052005334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2005nov <- crop(raster_2005nova, ROI)

chl.2005nov <- raster::extract(r.chl.2005nov, extract.pts, sp = T)

plot(r.chl.2005nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2005 dec
raster_2005dec <- "A20053352005365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2005deca <- raster(raster_2005dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2005deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20053352005365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2005dec <- crop(raster_2005deca, ROI)

chl.2005dec <- raster::extract(r.chl.2005dec, extract.pts, sp = T)

plot(r.chl.2005dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2006 jan
raster_2006jan <- "A20060012006031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2006jana <- raster(raster_2006jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2006jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20060012006031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2006jan <- crop(raster_2006jana, ROI)

chl.2006jan <- raster::extract(r.chl.2006jan, extract.pts, sp = T)

plot(r.chl.2006jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2006 feb
raster_2006feb <- "A20060322006059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2006feba <- raster(raster_2006feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2006feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20060322006059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2006feb <- crop(raster_2006feba, ROI)

chl.2006feb <- raster::extract(r.chl.2006feb, extract.pts, sp = T)

plot(r.chl.2006feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2006 mar
raster_2006mar <- "A20060602006090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2006mara <- raster(raster_2006mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2006mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20060602006090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2006mar <- crop(raster_2006mara, ROI)

chl.2006mar <- raster::extract(r.chl.2006mar, extract.pts, sp = T)

plot(r.chl.2006mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2006 apr
raster_2006apr <- "A20060912006120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2006apra <- raster(raster_2006apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2006apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20060912006120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2006apr <- crop(raster_2006apra, ROI)

chl.2006apr <- raster::extract(r.chl.2006apr, extract.pts, sp = T)

plot(r.chl.2006apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2006 may
raster_2006may <- "A20061212006151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2006maya <- raster(raster_2006may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2006maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20061212006151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2006may <- crop(raster_2006maya, ROI)

chl.2006may <- raster::extract(r.chl.2006may, extract.pts, sp = T)

plot(r.chl.2006may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2006 jun
raster_2006jun <- "A20061522006181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2006juna <- raster(raster_2006jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2006juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20061522006181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2006jun <- crop(raster_2006juna, ROI)

chl.2006jun <- raster::extract(r.chl.2006jun, extract.pts, sp = T)

plot(r.chl.2006jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2006 jul
raster_2006jul <- "A20061822006212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2006jula <- raster(raster_2006jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2006jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20061822006212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2006jul <- crop(raster_2006jula, ROI)

chl.2006jul <- raster::extract(r.chl.2006jul, extract.pts, sp = T)

plot(r.chl.2006jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2006 aug
raster_2006aug <- "A20062132006243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2006auga <- raster(raster_2006aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2006auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20062132006243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2006aug <- crop(raster_2006auga, ROI)

chl.2006aug <- raster::extract(r.chl.2006aug, extract.pts, sp = T)

plot(r.chl.2006aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2006 sep
raster_2006sep <- "A20062442006273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2006sepa <- raster(raster_2006sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2006sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20062442006273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2006sep <- crop(raster_2006sepa, ROI)

chl.2006sep <- raster::extract(r.chl.2006sep, extract.pts, sp = T)

plot(r.chl.2006sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2006 oct
raster_2006oct <- "A20062742006304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2006octa <- raster(raster_2006oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2006octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20062742006304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2006oct <- crop(raster_2006octa, ROI)

chl.2006oct <- raster::extract(r.chl.2006oct, extract.pts, sp = T)

plot(r.chl.2006oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2006 nov
raster_2006nov <- "A20063052006334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2006nova <- raster(raster_2006nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2006nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20063052006334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2006nov <- crop(raster_2006nova, ROI)

chl.2006nov <- raster::extract(r.chl.2006nov, extract.pts, sp = T)

plot(r.chl.2006nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2006 dec
raster_2006dec <- "A20063352006365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2006deca <- raster(raster_2006dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2006deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20063352006365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2006dec <- crop(raster_2006deca, ROI)

chl.2006dec <- raster::extract(r.chl.2006dec, extract.pts, sp = T)

plot(r.chl.2006dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2007 jan
raster_2007jan <- "A20070012007031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2007jana <- raster(raster_2007jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2007jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20070012007031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2007jan <- crop(raster_2007jana, ROI)

chl.2007jan <- raster::extract(r.chl.2007jan, extract.pts, sp = T)

plot(r.chl.2007jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2007 feb
raster_2007feb <- "A20070322007059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2007feba <- raster(raster_2007feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2007feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20070322007059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2007feb <- crop(raster_2007feba, ROI)

chl.2007feb <- raster::extract(r.chl.2007feb, extract.pts, sp = T)

plot(r.chl.2007feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2007 mar
raster_2007mar <- "A20070602007090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2007mara <- raster(raster_2007mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2007mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20070602007090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2007mar <- crop(raster_2007mara, ROI)

chl.2007mar <- raster::extract(r.chl.2007mar, extract.pts, sp = T)

plot(r.chl.2007mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2007 apr
raster_2007apr <- "A20070912007120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2007apra <- raster(raster_2007apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2007apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20070912007120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2007apr <- crop(raster_2007apra, ROI)

chl.2007apr <- raster::extract(r.chl.2007apr, extract.pts, sp = T)

plot(r.chl.2007apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2007 may
raster_2007may <- "A20071212007151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2007maya <- raster(raster_2007may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2007maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20071212007151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2007may <- crop(raster_2007maya, ROI)

chl.2007may <- raster::extract(r.chl.2007may, extract.pts, sp = T)

plot(r.chl.2007may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2007 jun
raster_2007jun <- "A20071522007181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2007juna <- raster(raster_2007jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2007juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20071522007181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2007jun <- crop(raster_2007juna, ROI)

chl.2007jun <- raster::extract(r.chl.2007jun, extract.pts, sp = T)

plot(r.chl.2007jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2007 jul
raster_2007jul <- "A20071822007212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2007jula <- raster(raster_2007jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2007jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20071822007212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2007jul <- crop(raster_2007jula, ROI)

chl.2007jul <- raster::extract(r.chl.2007jul, extract.pts, sp = T)

plot(r.chl.2007jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2007 aug
raster_2007aug <- "A20072132007243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2007auga <- raster(raster_2007aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2007auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20072132007243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2007aug <- crop(raster_2007auga, ROI)

chl.2007aug <- raster::extract(r.chl.2007aug, extract.pts, sp = T)

plot(r.chl.2007aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2007 sep
raster_2007sep <- "A20072442007273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2007sepa <- raster(raster_2007sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2007sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20072442007273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2007sep <- crop(raster_2007sepa, ROI)

chl.2007sep <- raster::extract(r.chl.2007sep, extract.pts, sp = T)

plot(r.chl.2007sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2007 oct
raster_2007oct <- "A20072742007304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2007octa <- raster(raster_2007oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2007octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20072742007304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2007oct <- crop(raster_2007octa, ROI)

chl.2007oct <- raster::extract(r.chl.2007oct, extract.pts, sp = T)

plot(r.chl.2007oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2007 nov
raster_2007nov <- "A20073052007334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2007nova <- raster(raster_2007nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2007nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20073052007334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2007nov <- crop(raster_2007nova, ROI)

chl.2007nov <- raster::extract(r.chl.2007nov, extract.pts, sp = T)

plot(r.chl.2007nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2007 dec
raster_2007dec <- "A20073352007365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2007deca <- raster(raster_2007dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2007deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20073352007365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2007dec <- crop(raster_2007deca, ROI)

chl.2007dec <- raster::extract(r.chl.2007dec, extract.pts, sp = T)

plot(r.chl.2007dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 jan
raster_2008jan <- "A20080012008031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2008jana <- raster(raster_2008jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2008jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20080012008031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2008jan <- crop(raster_2008jana, ROI)

chl.2008jan <- raster::extract(r.chl.2008jan, extract.pts, sp = T)

plot(r.chl.2008jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 feb
raster_2008feb <- "A20080322008060.L3m_MO_CHL_chlor_a_4km.nc"
raster_2008feba <- raster(raster_2008feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2008feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20080322008060.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2008feb <- crop(raster_2008feba, ROI)

chl.2008feb <- raster::extract(r.chl.2008feb, extract.pts, sp = T)

plot(r.chl.2008feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 mar
raster_2008mar <- "A20080612008091.L3m_MO_CHL_chlor_a_4km.nc"
raster_2008mara <- raster(raster_2008mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2008mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20080612008091.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2008mar <- crop(raster_2008mara, ROI)

chl.2008mar <- raster::extract(r.chl.2008mar, extract.pts, sp = T)

plot(r.chl.2008mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 apr
raster_2008apr <- "A20080922008121.L3m_MO_CHL_chlor_a_4km.nc"
raster_2008apra <- raster(raster_2008apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2008apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20080922008121.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2008apr <- crop(raster_2008apra, ROI)

chl.2008apr <- raster::extract(r.chl.2008apr, extract.pts, sp = T)

plot(r.chl.2008apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 may
raster_2008may <- "A20081222008152.L3m_MO_CHL_chlor_a_4km.nc"
raster_2008maya <- raster(raster_2008may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2008maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20081222008152.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2008may <- crop(raster_2008maya, ROI)

chl.2008may <- raster::extract(r.chl.2008may, extract.pts, sp = T)

plot(r.chl.2008may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 jun
raster_2008jun <- "A20081532008182.L3m_MO_CHL_chlor_a_4km.nc"
raster_2008juna <- raster(raster_2008jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2008juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20081532008182.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2008jun <- crop(raster_2008juna, ROI)

chl.2008jun <- raster::extract(r.chl.2008jun, extract.pts, sp = T)

plot(r.chl.2008jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 jul
raster_2008jul <- "A20081832008213.L3m_MO_CHL_chlor_a_4km.nc"
raster_2008jula <- raster(raster_2008jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2008jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20081832008213.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2008jul <- crop(raster_2008jula, ROI)

chl.2008jul <- raster::extract(r.chl.2008jul, extract.pts, sp = T)

plot(r.chl.2008jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 aug
raster_2008aug <- "A20082142008244.L3m_MO_CHL_chlor_a_4km.nc"
raster_2008auga <- raster(raster_2008aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2008auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20082142008244.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2008aug <- crop(raster_2008auga, ROI)

chl.2008aug <- raster::extract(r.chl.2008aug, extract.pts, sp = T)

plot(r.chl.2008aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 sep
raster_2008sep <- "A20082452008274.L3m_MO_CHL_chlor_a_4km.nc"
raster_2008sepa <- raster(raster_2008sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2008sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20082452008274.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2008sep <- crop(raster_2008sepa, ROI)

chl.2008sep <- raster::extract(r.chl.2008sep, extract.pts, sp = T)

plot(r.chl.2008sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 oct
raster_2008oct <- "A20082752008305.L3m_MO_CHL_chlor_a_4km.nc"
raster_2008octa <- raster(raster_2008oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2008octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20082752008305.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2008oct <- crop(raster_2008octa, ROI)

chl.2008oct <- raster::extract(r.chl.2008oct, extract.pts, sp = T)

plot(r.chl.2008oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 nov
raster_2008nov <- "A20083062008335.L3m_MO_CHL_chlor_a_4km.nc"
raster_2008nova <- raster(raster_2008nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2008nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20083062008335.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2008nov <- crop(raster_2008nova, ROI)

chl.2008nov <- raster::extract(r.chl.2008nov, extract.pts, sp = T)

plot(r.chl.2008nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 dec
raster_2008dec <- "A20083362008366.L3m_MO_CHL_chlor_a_4km.nc"
raster_2008deca <- raster(raster_2008dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2008deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20083362008366.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2008dec <- crop(raster_2008deca, ROI)

chl.2008dec <- raster::extract(r.chl.2008dec, extract.pts, sp = T)

plot(r.chl.2008dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2009 jan
raster_2009jan <- "A20090012009031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2009jana <- raster(raster_2009jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2009jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20090012009031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2009jan <- crop(raster_2009jana, ROI)

chl.2009jan <- raster::extract(r.chl.2009jan, extract.pts, sp = T)

plot(r.chl.2009jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2009 feb
raster_2009feb <- "A20090322009059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2009feba <- raster(raster_2009feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2009feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20090322009059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2009feb <- crop(raster_2009feba, ROI)

chl.2009feb <- raster::extract(r.chl.2009feb, extract.pts, sp = T)

plot(r.chl.2009feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2009 mar
raster_2009mar <- "A20090602009090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2009mara <- raster(raster_2009mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2009mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20090602009090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2009mar <- crop(raster_2009mara, ROI)

chl.2009mar <- raster::extract(r.chl.2009mar, extract.pts, sp = T)

plot(r.chl.2009mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2009 apr
raster_2009apr <- "A20090912009120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2009apra <- raster(raster_2009apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2009apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20090912009120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2009apr <- crop(raster_2009apra, ROI)

chl.2009apr <- raster::extract(r.chl.2009apr, extract.pts, sp = T)

plot(r.chl.2009apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2009 may
raster_2009may <- "A20091212009151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2009maya <- raster(raster_2009may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2009maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20091212009151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2009may <- crop(raster_2009maya, ROI)

chl.2009may <- raster::extract(r.chl.2009may, extract.pts, sp = T)

plot(r.chl.2009may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2009 jun
raster_2009jun <- "A20091522009181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2009juna <- raster(raster_2009jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2009juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20091522009181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2009jun <- crop(raster_2009juna, ROI)

chl.2009jun <- raster::extract(r.chl.2009jun, extract.pts, sp = T)

plot(r.chl.2009jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2009 jul
raster_2009jul <- "A20091822009212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2009jula <- raster(raster_2009jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2009jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20091822009212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2009jul <- crop(raster_2009jula, ROI)

chl.2009jul <- raster::extract(r.chl.2009jul, extract.pts, sp = T)

plot(r.chl.2009jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2009 aug
raster_2009aug <- "A20092132009243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2009auga <- raster(raster_2009aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2009auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20092132009243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2009aug <- crop(raster_2009auga, ROI)

chl.2009aug <- raster::extract(r.chl.2009aug, extract.pts, sp = T)

plot(r.chl.2009aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2009 sep
raster_2009sep <- "A20092442009273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2009sepa <- raster(raster_2009sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2009sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20092442009273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2009sep <- crop(raster_2009sepa, ROI)

chl.2009sep <- raster::extract(r.chl.2009sep, extract.pts, sp = T)

plot(r.chl.2009sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2009 oct
raster_2009oct <- "A20092742009304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2009octa <- raster(raster_2009oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2009octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20092742009304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2009oct <- crop(raster_2009octa, ROI)

chl.2009oct <- raster::extract(r.chl.2009oct, extract.pts, sp = T)

plot(r.chl.2009oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2009 nov
raster_2009nov <- "A20093052009334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2009nova <- raster(raster_2009nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2009nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20093052009334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2009nov <- crop(raster_2009nova, ROI)

chl.2009nov <- raster::extract(r.chl.2009nov, extract.pts, sp = T)

plot(r.chl.2009nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2009 dec
raster_2009dec <- "A20093352009365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2009deca <- raster(raster_2009dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2009deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20093352009365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2009dec <- crop(raster_2009deca, ROI)

chl.2009dec <- raster::extract(r.chl.2009dec, extract.pts, sp = T)

plot(r.chl.2009dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2010 jan
raster_2010jan <- "A20100012010031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2010jana <- raster(raster_2010jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2010jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20100012010031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2010jan <- crop(raster_2010jana, ROI)

chl.2010jan <- raster::extract(r.chl.2010jan, extract.pts, sp = T)

plot(r.chl.2010jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2010 feb
raster_2010feb <- "A20100322010059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2010feba <- raster(raster_2010feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2010feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20100322010059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2010feb <- crop(raster_2010feba, ROI)

chl.2010feb <- raster::extract(r.chl.2010feb, extract.pts, sp = T)

plot(r.chl.2010feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2010 mar
raster_2010mar <- "A20100602010090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2010mara <- raster(raster_2010mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2010mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20100602010090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2010mar <- crop(raster_2010mara, ROI)

chl.2010mar <- raster::extract(r.chl.2010mar, extract.pts, sp = T)

plot(r.chl.2010mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2010 apr
raster_2010apr <- "A20100912010120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2010apra <- raster(raster_2010apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2010apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20100912010120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2010apr <- crop(raster_2010apra, ROI)

chl.2010apr <- raster::extract(r.chl.2010apr, extract.pts, sp = T)

plot(r.chl.2010apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2010 may
raster_2010may <- "A20101212010151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2010maya <- raster(raster_2010may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2010maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20101212010151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2010may <- crop(raster_2010maya, ROI)

chl.2010may <- raster::extract(r.chl.2010may, extract.pts, sp = T)

plot(r.chl.2010may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2010 jun
raster_2010jun <- "A20101522010181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2010juna <- raster(raster_2010jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2010juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20101522010181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2010jun <- crop(raster_2010juna, ROI)

chl.2010jun <- raster::extract(r.chl.2010jun, extract.pts, sp = T)

plot(r.chl.2010jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2010 jul
raster_2010jul <- "A20101822010212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2010jula <- raster(raster_2010jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2010jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20101822010212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2010jul <- crop(raster_2010jula, ROI)

chl.2010jul <- raster::extract(r.chl.2010jul, extract.pts, sp = T)

plot(r.chl.2010jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2010 aug
raster_2010aug <- "A20102132010243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2010auga <- raster(raster_2010aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2010auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20102132010243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2010aug <- crop(raster_2010auga, ROI)

chl.2010aug <- raster::extract(r.chl.2010aug, extract.pts, sp = T)

plot(r.chl.2010aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2010 sep
raster_2010sep <- "A20102442010273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2010sepa <- raster(raster_2010sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2010sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20102442010273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2010sep <- crop(raster_2010sepa, ROI)

chl.2010sep <- raster::extract(r.chl.2010sep, extract.pts, sp = T)

plot(r.chl.2010sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2010 oct
raster_2010oct <- "A20102742010304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2010octa <- raster(raster_2010oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2010octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20102742010304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2010oct <- crop(raster_2010octa, ROI)

chl.2010oct <- raster::extract(r.chl.2010oct, extract.pts, sp = T)

plot(r.chl.2010oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2010 nov
raster_2010nov <- "A20103052010334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2010nova <- raster(raster_2010nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2010nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20103052010334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2010nov <- crop(raster_2010nova, ROI)

chl.2010nov <- raster::extract(r.chl.2010nov, extract.pts, sp = T)

plot(r.chl.2010nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2010 dec
raster_2010dec <- "A20103352010365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2010deca <- raster(raster_2010dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2010deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20103352010365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2010dec <- crop(raster_2010deca, ROI)

chl.2010dec <- raster::extract(r.chl.2010dec, extract.pts, sp = T)

plot(r.chl.2010dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2011 jan
raster_2011jan <- "A20110012011031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2011jana <- raster(raster_2011jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2011jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20110012011031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2011jan <- crop(raster_2011jana, ROI)

chl.2011jan <- raster::extract(r.chl.2011jan, extract.pts, sp = T)

plot(r.chl.2011jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2011 feb
raster_2011feb <- "A20110322011059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2011feba <- raster(raster_2011feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2011feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20110322011059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2011feb <- crop(raster_2011feba, ROI)

chl.2011feb <- raster::extract(r.chl.2011feb, extract.pts, sp = T)

plot(r.chl.2011feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2011 mar
raster_2011mar <- "A20110602011090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2011mara <- raster(raster_2011mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2011mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20110602011090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2011mar <- crop(raster_2011mara, ROI)

chl.2011mar <- raster::extract(r.chl.2011mar, extract.pts, sp = T)

plot(r.chl.2011mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2011 apr
raster_2011apr <- "A20110912011120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2011apra <- raster(raster_2011apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2011apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20110912011120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2011apr <- crop(raster_2011apra, ROI)

chl.2011apr <- raster::extract(r.chl.2011apr, extract.pts, sp = T)

plot(r.chl.2011apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2011 may
raster_2011may <- "A20111212011151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2011maya <- raster(raster_2011may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2011maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20111212011151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2011may <- crop(raster_2011maya, ROI)

chl.2011may <- raster::extract(r.chl.2011may, extract.pts, sp = T)

plot(r.chl.2011may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2011 jun
raster_2011jun <- "A20111522011181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2011juna <- raster(raster_2011jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2011juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20111522011181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2011jun <- crop(raster_2011juna, ROI)

chl.2011jun <- raster::extract(r.chl.2011jun, extract.pts, sp = T)

plot(r.chl.2011jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2011 jul
raster_2011jul <- "A20111822011212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2011jula <- raster(raster_2011jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2011jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20111822011212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2011jul <- crop(raster_2011jula, ROI)

chl.2011jul <- raster::extract(r.chl.2011jul, extract.pts, sp = T)

plot(r.chl.2011jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2011 aug
raster_2011aug <- "A20112132011243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2011auga <- raster(raster_2011aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2011auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20112132011243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2011aug <- crop(raster_2011auga, ROI)

chl.2011aug <- raster::extract(r.chl.2011aug, extract.pts, sp = T)

plot(r.chl.2011aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2011 sep
raster_2011sep <- "A20112442011273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2011sepa <- raster(raster_2011sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2011sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20112442011273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2011sep <- crop(raster_2011sepa, ROI)

chl.2011sep <- raster::extract(r.chl.2011sep, extract.pts, sp = T)

plot(r.chl.2011sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2011 oct
raster_2011oct <- "A20112742011304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2011octa <- raster(raster_2011oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2011octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20112742011304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2011oct <- crop(raster_2011octa, ROI)

chl.2011oct <- raster::extract(r.chl.2011oct, extract.pts, sp = T)

plot(r.chl.2011oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2011 nov
raster_2011nov <- "A20113052011334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2011nova <- raster(raster_2011nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2011nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20113052011334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2011nov <- crop(raster_2011nova, ROI)

chl.2011nov <- raster::extract(r.chl.2011nov, extract.pts, sp = T)

plot(r.chl.2011nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2011 dec
raster_2011dec <- "A20113352011365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2011deca <- raster(raster_2011dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2011deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20113352011365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2011dec <- crop(raster_2011deca, ROI)

chl.2011dec <- raster::extract(r.chl.2011dec, extract.pts, sp = T)

plot(r.chl.2011dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2012 jan
raster_2012jan <- "A20120012012031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2012jana <- raster(raster_2012jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2012jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20120012012031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2012jan <- crop(raster_2012jana, ROI)

chl.2012jan <- raster::extract(r.chl.2012jan, extract.pts, sp = T)

plot(r.chl.2012jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2012 feb
raster_2012feb <- "A20120322012060.L3m_MO_CHL_chlor_a_4km.nc"
raster_2012feba <- raster(raster_2012feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2012feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20120322012060.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2012feb <- crop(raster_2012feba, ROI)

chl.2012feb <- raster::extract(r.chl.2012feb, extract.pts, sp = T)

plot(r.chl.2012feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2012 mar
raster_2012mar <- "A20120612012091.L3m_MO_CHL_chlor_a_4km.nc"
raster_2012mara <- raster(raster_2012mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2012mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20120612012091.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2012mar <- crop(raster_2012mara, ROI)

chl.2012mar <- raster::extract(r.chl.2012mar, extract.pts, sp = T)

plot(r.chl.2012mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2012 apr
raster_2012apr <- "A20120922012121.L3m_MO_CHL_chlor_a_4km.nc"
raster_2012apra <- raster(raster_2012apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2012apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20120922012121.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2012apr <- crop(raster_2012apra, ROI)

chl.2012apr <- raster::extract(r.chl.2012apr, extract.pts, sp = T)

plot(r.chl.2012apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2012 may
raster_2012may <- "A20121222012152.L3m_MO_CHL_chlor_a_4km.nc"
raster_2012maya <- raster(raster_2012may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2012maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20121222012152.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2012may <- crop(raster_2012maya, ROI)

chl.2012may <- raster::extract(r.chl.2012may, extract.pts, sp = T)

plot(r.chl.2012may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2012 jun
raster_2012jun <- "A20121532012182.L3m_MO_CHL_chlor_a_4km.nc"
raster_2012juna <- raster(raster_2012jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2012juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20121532012182.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2012jun <- crop(raster_2012juna, ROI)

chl.2012jun <- raster::extract(r.chl.2012jun, extract.pts, sp = T)

plot(r.chl.2012jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2012 jul
raster_2012jul <- "A20121832012213.L3m_MO_CHL_chlor_a_4km.nc"
raster_2012jula <- raster(raster_2012jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2012jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20121832012213.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2012jul <- crop(raster_2012jula, ROI)

chl.2012jul <- raster::extract(r.chl.2012jul, extract.pts, sp = T)

plot(r.chl.2012jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2012 aug
raster_2012aug <- "A20122142012244.L3m_MO_CHL_chlor_a_4km.nc"
raster_2012auga <- raster(raster_2012aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2012auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20122142012244.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2012aug <- crop(raster_2012auga, ROI)

chl.2012aug <- raster::extract(r.chl.2012aug, extract.pts, sp = T)

plot(r.chl.2012aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2012 sep
raster_2012sep <- "A20122452012274.L3m_MO_CHL_chlor_a_4km.nc"
raster_2012sepa <- raster(raster_2012sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2012sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20122452012274.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2012sep <- crop(raster_2012sepa, ROI)

chl.2012sep <- raster::extract(r.chl.2012sep, extract.pts, sp = T)

plot(r.chl.2012sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2012 oct
raster_2012oct <- "A20122752012305.L3m_MO_CHL_chlor_a_4km.nc"
raster_2012octa <- raster(raster_2012oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2012octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20122752012305.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2012oct <- crop(raster_2012octa, ROI)

chl.2012oct <- raster::extract(r.chl.2012oct, extract.pts, sp = T)

plot(r.chl.2012oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2012 nov
raster_2012nov <- "A20123062012335.L3m_MO_CHL_chlor_a_4km.nc"
raster_2012nova <- raster(raster_2012nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2012nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20123062012335.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2012nov <- crop(raster_2012nova, ROI)

chl.2012nov <- raster::extract(r.chl.2012nov, extract.pts, sp = T)

plot(r.chl.2012nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2012 dec
raster_2012dec <- "A20123362012366.L3m_MO_CHL_chlor_a_4km.nc"
raster_2012deca <- raster(raster_2012dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2012deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20123362012366.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2012dec <- crop(raster_2012deca, ROI)

chl.2012dec <- raster::extract(r.chl.2012dec, extract.pts, sp = T)

plot(r.chl.2012dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2013 jan
raster_2013jan <- "A20130012013031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2013jana <- raster(raster_2013jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2013jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20130012013031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2013jan <- crop(raster_2013jana, ROI)

chl.2013jan <- raster::extract(r.chl.2013jan, extract.pts, sp = T)

plot(r.chl.2013jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2013 feb
raster_2013feb <- "A20130322013059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2013feba <- raster(raster_2013feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2013feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20130322013059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2013feb <- crop(raster_2013feba, ROI)

chl.2013feb <- raster::extract(r.chl.2013feb, extract.pts, sp = T)

plot(r.chl.2013feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2013 mar
raster_2013mar <- "A20130602013090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2013mara <- raster(raster_2013mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2013mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20130602013090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2013mar <- crop(raster_2013mara, ROI)

chl.2013mar <- raster::extract(r.chl.2013mar, extract.pts, sp = T)

plot(r.chl.2013mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2013 apr
raster_2013apr <- "A20130912013120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2013apra <- raster(raster_2013apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2013apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20130912013120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2013apr <- crop(raster_2013apra, ROI)

chl.2013apr <- raster::extract(r.chl.2013apr, extract.pts, sp = T)

plot(r.chl.2013apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2013 may
raster_2013may <- "A20131212013151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2013maya <- raster(raster_2013may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2013maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20131212013151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2013may <- crop(raster_2013maya, ROI)

chl.2013may <- raster::extract(r.chl.2013may, extract.pts, sp = T)

plot(r.chl.2013may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2013 jun
raster_2013jun <- "A20131522013181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2013juna <- raster(raster_2013jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2013juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20131522013181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2013jun <- crop(raster_2013juna, ROI)

chl.2013jun <- raster::extract(r.chl.2013jun, extract.pts, sp = T)

plot(r.chl.2013jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2013 jul
raster_2013jul <- "A20131822013212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2013jula <- raster(raster_2013jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2013jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20131822013212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2013jul <- crop(raster_2013jula, ROI)

chl.2013jul <- raster::extract(r.chl.2013jul, extract.pts, sp = T)

plot(r.chl.2013jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2013 aug
raster_2013aug <- "A20132132013243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2013auga <- raster(raster_2013aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2013auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20132132013243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2013aug <- crop(raster_2013auga, ROI)

chl.2013aug <- raster::extract(r.chl.2013aug, extract.pts, sp = T)

plot(r.chl.2013aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2013 sep
raster_2013sep <- "A20132442013273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2013sepa <- raster(raster_2013sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2013sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20132442013273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2013sep <- crop(raster_2013sepa, ROI)

chl.2013sep <- raster::extract(r.chl.2013sep, extract.pts, sp = T)

plot(r.chl.2013sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2013 oct
raster_2013oct <- "A20132742013304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2013octa <- raster(raster_2013oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2013octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20132742013304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2013oct <- crop(raster_2013octa, ROI)

chl.2013oct <- raster::extract(r.chl.2013oct, extract.pts, sp = T)

plot(r.chl.2013oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2013 nov
raster_2013nov <- "A20133052013334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2013nova <- raster(raster_2013nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2013nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20133052013334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2013nov <- crop(raster_2013nova, ROI)

chl.2013nov <- raster::extract(r.chl.2013nov, extract.pts, sp = T)

plot(r.chl.2013nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2013 dec
raster_2013dec <- "A20133352013365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2013deca <- raster(raster_2013dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2013deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20133352013365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2013dec <- crop(raster_2013deca, ROI)

chl.2013dec <- raster::extract(r.chl.2013dec, extract.pts, sp = T)

plot(r.chl.2013dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2014 jan
raster_2014jan <- "A20140012014031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2014jana <- raster(raster_2014jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2014jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20140012014031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2014jan <- crop(raster_2014jana, ROI)

chl.2014jan <- raster::extract(r.chl.2014jan, extract.pts, sp = T)

plot(r.chl.2014jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2014 feb
raster_2014feb <- "A20140322014059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2014feba <- raster(raster_2014feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2014feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20140322014059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2014feb <- crop(raster_2014feba, ROI)

chl.2014feb <- raster::extract(r.chl.2014feb, extract.pts, sp = T)

plot(r.chl.2014feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2014 mar
raster_2014mar <- "A20140602014090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2014mara <- raster(raster_2014mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2014mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20140602014090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2014mar <- crop(raster_2014mara, ROI)

chl.2014mar <- raster::extract(r.chl.2014mar, extract.pts, sp = T)

plot(r.chl.2014mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2014 apr
raster_2014apr <- "A20140912014120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2014apra <- raster(raster_2014apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2014apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20140912014120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2014apr <- crop(raster_2014apra, ROI)

chl.2014apr <- raster::extract(r.chl.2014apr, extract.pts, sp = T)

plot(r.chl.2014apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2014 may
raster_2014may <- "A20141212014151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2014maya <- raster(raster_2014may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2014maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20141212014151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2014may <- crop(raster_2014maya, ROI)

chl.2014may <- raster::extract(r.chl.2014may, extract.pts, sp = T)

plot(r.chl.2014may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2014 jun
raster_2014jun <- "A20141522014181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2014juna <- raster(raster_2014jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2014juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20141522014181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2014jun <- crop(raster_2014juna, ROI)

chl.2014jun <- raster::extract(r.chl.2014jun, extract.pts, sp = T)

plot(r.chl.2014jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2014 jul
raster_2014jul <- "A20141822014212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2014jula <- raster(raster_2014jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2014jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20141822014212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2014jul <- crop(raster_2014jula, ROI)

chl.2014jul <- raster::extract(r.chl.2014jul, extract.pts, sp = T)

plot(r.chl.2014jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2014 aug
raster_2014aug <- "A20142132014243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2014auga <- raster(raster_2014aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2014auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20142132014243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2014aug <- crop(raster_2014auga, ROI)

chl.2014aug <- raster::extract(r.chl.2014aug, extract.pts, sp = T)

plot(r.chl.2014aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2014 sep
raster_2014sep <- "A20142442014273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2014sepa <- raster(raster_2014sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2014sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20142442014273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2014sep <- crop(raster_2014sepa, ROI)

chl.2014sep <- raster::extract(r.chl.2014sep, extract.pts, sp = T)

plot(r.chl.2014sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2014 oct
raster_2014oct <- "A20142742014304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2014octa <- raster(raster_2014oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2014octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20142742014304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2014oct <- crop(raster_2014octa, ROI)

chl.2014oct <- raster::extract(r.chl.2014oct, extract.pts, sp = T)

plot(r.chl.2014oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2014 nov
raster_2014nov <- "A20143052014334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2014nova <- raster(raster_2014nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2014nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20143052014334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2014nov <- crop(raster_2014nova, ROI)

chl.2014nov <- raster::extract(r.chl.2014nov, extract.pts, sp = T)

plot(r.chl.2014nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2014 dec
raster_2014dec <- "A20143352014365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2014deca <- raster(raster_2014dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2014deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20143352014365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2014dec <- crop(raster_2014deca, ROI)

chl.2014dec <- raster::extract(r.chl.2014dec, extract.pts, sp = T)

plot(r.chl.2014dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2015 jan
raster_2015jan <- "A20150012015031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2015jana <- raster(raster_2015jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2015jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20150012015031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2015jan <- crop(raster_2015jana, ROI)

chl.2015jan <- raster::extract(r.chl.2015jan, extract.pts, sp = T)

plot(r.chl.2015jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2015 feb
raster_2015feb <- "A20150322015059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2015feba <- raster(raster_2015feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2015feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20150322015059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2015feb <- crop(raster_2015feba, ROI)

chl.2015feb <- raster::extract(r.chl.2015feb, extract.pts, sp = T)

plot(r.chl.2015feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2015 mar
raster_2015mar <- "A20150602015090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2015mara <- raster(raster_2015mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2015mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20150602015090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2015mar <- crop(raster_2015mara, ROI)

chl.2015mar <- raster::extract(r.chl.2015mar, extract.pts, sp = T)

plot(r.chl.2015mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2015 apr
raster_2015apr <- "A20150912015120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2015apra <- raster(raster_2015apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2015apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20150912015120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2015apr <- crop(raster_2015apra, ROI)

chl.2015apr <- raster::extract(r.chl.2015apr, extract.pts, sp = T)

plot(r.chl.2015apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2015 may
raster_2015may <- "A20151212015151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2015maya <- raster(raster_2015may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2015maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20151212015151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2015may <- crop(raster_2015maya, ROI)

chl.2015may <- raster::extract(r.chl.2015may, extract.pts, sp = T)

plot(r.chl.2015may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2015 jun
raster_2015jun <- "A20151522015181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2015juna <- raster(raster_2015jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2015juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20151522015181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2015jun <- crop(raster_2015juna, ROI)

chl.2015jun <- raster::extract(r.chl.2015jun, extract.pts, sp = T)

plot(r.chl.2015jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2015 jul
raster_2015jul <- "A20151822015212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2015jula <- raster(raster_2015jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2015jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20151822015212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2015jul <- crop(raster_2015jula, ROI)

chl.2015jul <- raster::extract(r.chl.2015jul, extract.pts, sp = T)

plot(r.chl.2015jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2015 aug
raster_2015aug <- "A20152132015243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2015auga <- raster(raster_2015aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2015auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20152132015243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2015aug <- crop(raster_2015auga, ROI)

chl.2015aug <- raster::extract(r.chl.2015aug, extract.pts, sp = T)

plot(r.chl.2015aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2015 sep
raster_2015sep <- "A20152442015273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2015sepa <- raster(raster_2015sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2015sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20152442015273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2015sep <- crop(raster_2015sepa, ROI)

chl.2015sep <- raster::extract(r.chl.2015sep, extract.pts, sp = T)

plot(r.chl.2015sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2015 oct
raster_2015oct <- "A20152742015304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2015octa <- raster(raster_2015oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2015octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20152742015304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2015oct <- crop(raster_2015octa, ROI)

chl.2015oct <- raster::extract(r.chl.2015oct, extract.pts, sp = T)

plot(r.chl.2015oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2015 nov
raster_2015nov <- "A20153052015334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2015nova <- raster(raster_2015nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2015nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20153052015334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2015nov <- crop(raster_2015nova, ROI)

chl.2015nov <- raster::extract(r.chl.2015nov, extract.pts, sp = T)

plot(r.chl.2015nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2015 dec
raster_2015dec <- "A20153352015365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2015deca <- raster(raster_2015dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2015deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20153352015365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2015dec <- crop(raster_2015deca, ROI)

chl.2015dec <- raster::extract(r.chl.2015dec, extract.pts, sp = T)

plot(r.chl.2015dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2016 jan
raster_2016jan <- "A20160012016031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2016jana <- raster(raster_2016jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2016jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20160012016031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2016jan <- crop(raster_2016jana, ROI)

chl.2016jan <- raster::extract(r.chl.2016jan, extract.pts, sp = T)

plot(r.chl.2016jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2016 feb
raster_2016feb <- "A20160322016060.L3m_MO_CHL_chlor_a_4km.nc"
raster_2016feba <- raster(raster_2016feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2016feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20160322016060.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2016feb <- crop(raster_2016feba, ROI)

chl.2016feb <- raster::extract(r.chl.2016feb, extract.pts, sp = T)

plot(r.chl.2016feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2016 mar
raster_2016mar <- "A20160612016091.L3m_MO_CHL_chlor_a_4km.nc"
raster_2016mara <- raster(raster_2016mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2016mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20160612016091.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2016mar <- crop(raster_2016mara, ROI)

chl.2016mar <- raster::extract(r.chl.2016mar, extract.pts, sp = T)

plot(r.chl.2016mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2016 apr
raster_2016apr <- "A20160922016121.L3m_MO_CHL_chlor_a_4km.nc"
raster_2016apra <- raster(raster_2016apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2016apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20160922016121.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2016apr <- crop(raster_2016apra, ROI)

chl.2016apr <- raster::extract(r.chl.2016apr, extract.pts, sp = T)

plot(r.chl.2016apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2016 may
raster_2016may <- "A20161222016152.L3m_MO_CHL_chlor_a_4km.nc"
raster_2016maya <- raster(raster_2016may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2016maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20161222016152.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2016may <- crop(raster_2016maya, ROI)

chl.2016may <- raster::extract(r.chl.2016may, extract.pts, sp = T)

plot(r.chl.2016may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2016 jun
raster_2016jun <- "A20161532016182.L3m_MO_CHL_chlor_a_4km.nc"
raster_2016juna <- raster(raster_2016jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2016juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20161532016182.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2016jun <- crop(raster_2016juna, ROI)

chl.2016jun <- raster::extract(r.chl.2016jun, extract.pts, sp = T)

plot(r.chl.2016jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2016 jul
raster_2016jul <- "A20161832016213.L3m_MO_CHL_chlor_a_4km.nc"
raster_2016jula <- raster(raster_2016jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2016jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20161832016213.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2016jul <- crop(raster_2016jula, ROI)

chl.2016jul <- raster::extract(r.chl.2016jul, extract.pts, sp = T)

plot(r.chl.2016jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2016 aug
raster_2016aug <- "A20162142016244.L3m_MO_CHL_chlor_a_4km.nc"
raster_2016auga <- raster(raster_2016aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2016auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20162142016244.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2016aug <- crop(raster_2016auga, ROI)

chl.2016aug <- raster::extract(r.chl.2016aug, extract.pts, sp = T)

plot(r.chl.2016aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2016 sep
raster_2016sep <- "A20162452016274.L3m_MO_CHL_chlor_a_4km.nc"
raster_2016sepa <- raster(raster_2016sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2016sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20162452016274.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2016sep <- crop(raster_2016sepa, ROI)

chl.2016sep <- raster::extract(r.chl.2016sep, extract.pts, sp = T)

plot(r.chl.2016sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2016 oct
raster_2016oct <- "A20162752016305.L3m_MO_CHL_chlor_a_4km.nc"
raster_2016octa <- raster(raster_2016oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2016octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20162752016305.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2016oct <- crop(raster_2016octa, ROI)

chl.2016oct <- raster::extract(r.chl.2016oct, extract.pts, sp = T)

plot(r.chl.2016oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2016 nov
raster_2016nov <- "A20163062016335.L3m_MO_CHL_chlor_a_4km.nc"
raster_2016nova <- raster(raster_2016nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2016nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20163062016335.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2016nov <- crop(raster_2016nova, ROI)

chl.2016nov <- raster::extract(r.chl.2016nov, extract.pts, sp = T)

plot(r.chl.2016nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2016 dec
raster_2016dec <- "A20163362016366.L3m_MO_CHL_chlor_a_4km.nc"
raster_2016deca <- raster(raster_2016dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2016deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20163362016366.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2016dec <- crop(raster_2016deca, ROI)

chl.2016dec <- raster::extract(r.chl.2016dec, extract.pts, sp = T)

plot(r.chl.2016dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2017 jan
raster_2017jan <- "A20170012017031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2017jana <- raster(raster_2017jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2017jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20170012017031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2017jan <- crop(raster_2017jana, ROI)

chl.2017jan <- raster::extract(r.chl.2017jan, extract.pts, sp = T)

plot(r.chl.2017jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2017 feb
raster_2017feb <- "A20170322017059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2017feba <- raster(raster_2017feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2017feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20170322017059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2017feb <- crop(raster_2017feba, ROI)

chl.2017feb <- raster::extract(r.chl.2017feb, extract.pts, sp = T)

plot(r.chl.2017feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2017 mar
raster_2017mar <- "A20170602017090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2017mara <- raster(raster_2017mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2017mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20170602017090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2017mar <- crop(raster_2017mara, ROI)

chl.2017mar <- raster::extract(r.chl.2017mar, extract.pts, sp = T)

plot(r.chl.2017mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2017 apr
raster_2017apr <- "A20170912017120.L3m_MO_CHL_chlor_a_4km.nc "
raster_2017apra <- raster(raster_2017apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2017apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20170912017120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2017apr <- crop(raster_2017apra, ROI)

chl.2017apr <- raster::extract(r.chl.2017apr, extract.pts, sp = T)

plot(r.chl.2017apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2017 may
raster_2017may <- "A20171212017151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2017maya <- raster(raster_2017may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2017maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20171212017151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2017may <- crop(raster_2017maya, ROI)

chl.2017may <- raster::extract(r.chl.2017may, extract.pts, sp = T)

plot(r.chl.2017may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2017 jun
raster_2017jun <- "A20171522017181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2017juna <- raster(raster_2017jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2017juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20171522017181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2017jun <- crop(raster_2017juna, ROI)

chl.2017jun <- raster::extract(r.chl.2017jun, extract.pts, sp = T)

plot(r.chl.2017jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2017 jul
raster_2017jul <- "A20171822017212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2017jula <- raster(raster_2017jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2017jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20171822017212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2017jul <- crop(raster_2017jula, ROI)

chl.2017jul <- raster::extract(r.chl.2017jul, extract.pts, sp = T)

plot(r.chl.2017jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2017 aug
raster_2017aug <- "A20172132017243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2017auga <- raster(raster_2017aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2017auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20172132017243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2017aug <- crop(raster_2017auga, ROI)

chl.2017aug <- raster::extract(r.chl.2017aug, extract.pts, sp = T)

plot(r.chl.2017aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2017 sep
raster_2017sep <- "A20172442017273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2017sepa <- raster(raster_2017sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2017sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20172442017273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2017sep <- crop(raster_2017sepa, ROI)

chl.2017sep <- raster::extract(r.chl.2017sep, extract.pts, sp = T)

plot(r.chl.2017sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2017 oct
raster_2017oct <- "A20172742017304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2017octa <- raster(raster_2017oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2017octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20172742017304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2017oct <- crop(raster_2017octa, ROI)

chl.2017oct <- raster::extract(r.chl.2017oct, extract.pts, sp = T)

plot(r.chl.2017oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2017 nov
raster_2017nov <- "A20173052017334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2017nova <- raster(raster_2017nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2017nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20173052017334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2017nov <- crop(raster_2017nova, ROI)

chl.2017nov <- raster::extract(r.chl.2017nov, extract.pts, sp = T)

plot(r.chl.2017nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2017 dec
raster_2017dec <- "A20173352017365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2017deca <- raster(raster_2017dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2017deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20173352017365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2017dec <- crop(raster_2017deca, ROI)

chl.2017dec <- raster::extract(r.chl.2017dec, extract.pts, sp = T)

plot(r.chl.2017dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2018 jan
raster_2018jan <- "A20180012018031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2018jana <- raster(raster_2018jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2018jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20180012018031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2018jan <- crop(raster_2018jana, ROI)

chl.2018jan <- raster::extract(r.chl.2018jan, extract.pts, sp = T)

plot(r.chl.2018jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2018 feb
raster_2018feb <- "A20180322018059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2018feba <- raster(raster_2018feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2018feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20180322018059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2018feb <- crop(raster_2018feba, ROI)

chl.2018feb <- raster::extract(r.chl.2018feb, extract.pts, sp = T)

plot(r.chl.2018feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2018 mar
raster_2018mar <- "A20180602018090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2018mara <- raster(raster_2018mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2018mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20180602018090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2018mar <- crop(raster_2018mara, ROI)

chl.2018mar <- raster::extract(r.chl.2018mar, extract.pts, sp = T)

plot(r.chl.2018mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2018 apr
raster_2018apr <- "A20180912018120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2018apra <- raster(raster_2018apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2018apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20180912018120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2018apr <- crop(raster_2018apra, ROI)

chl.2018apr <- raster::extract(r.chl.2018apr, extract.pts, sp = T)

plot(r.chl.2018apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2018 may
raster_2018may <- "A20181212018151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2018maya <- raster(raster_2018may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2018maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20181212018151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2018may <- crop(raster_2018maya, ROI)

chl.2018may <- raster::extract(r.chl.2018may, extract.pts, sp = T)

plot(r.chl.2018may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2018 jun
raster_2018jun <- "A20181522018181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2018juna <- raster(raster_2018jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2018juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20181522018181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2018jun <- crop(raster_2018juna, ROI)

chl.2018jun <- raster::extract(r.chl.2018jun, extract.pts, sp = T)

plot(r.chl.2018jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2018 jul
raster_2018jul <- "A20181822018212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2018jula <- raster(raster_2018jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2018jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20181822018212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2018jul <- crop(raster_2018jula, ROI)

chl.2018jul <- raster::extract(r.chl.2018jul, extract.pts, sp = T)

plot(r.chl.2018jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2018 aug
raster_2018aug <- "A20182132018243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2018auga <- raster(raster_2018aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2018auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20182132018243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2018aug <- crop(raster_2018auga, ROI)

chl.2018aug <- raster::extract(r.chl.2018aug, extract.pts, sp = T)

plot(r.chl.2018aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2018 sep
raster_2018sep <- "A20182442018273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2018sepa <- raster(raster_2018sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2018sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20182442018273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2018sep <- crop(raster_2018sepa, ROI)

chl.2018sep <- raster::extract(r.chl.2018sep, extract.pts, sp = T)

plot(r.chl.2018sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2018 oct
raster_2018oct <- "A20182742018304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2018octa <- raster(raster_2018oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2018octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20182742018304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2018oct <- crop(raster_2018octa, ROI)

chl.2018oct <- raster::extract(r.chl.2018oct, extract.pts, sp = T)

plot(r.chl.2018oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2018 nov
raster_2018nov <- "A20183052018334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2018nova <- raster(raster_2018nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2018nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20183052018334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2018nov <- crop(raster_2018nova, ROI)

chl.2018nov <- raster::extract(r.chl.2018nov, extract.pts, sp = T)

plot(r.chl.2018nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2018 dec
raster_2018dec <- "A20183352018365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2018deca <- raster(raster_2018dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2018deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20183352018365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2018dec <- crop(raster_2018deca, ROI)

chl.2018dec <- raster::extract(r.chl.2018dec, extract.pts, sp = T)

plot(r.chl.2018dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2019 jan
raster_2019jan <- "A20190012019031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2019jana <- raster(raster_2019jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2019jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20190012019031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2019jan <- crop(raster_2019jana, ROI)

chl.2019jan <- raster::extract(r.chl.2019jan, extract.pts, sp = T)

plot(r.chl.2019jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2019 feb
raster_2019feb <- "A20190322019059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2019feba <- raster(raster_2019feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2019feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20190322019059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2019feb <- crop(raster_2019feba, ROI)

chl.2019feb <- raster::extract(r.chl.2019feb, extract.pts, sp = T)

plot(r.chl.2019feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2019 mar
raster_2019mar <- "A20190602019090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2019mara <- raster(raster_2019mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2019mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20190602019090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2019mar <- crop(raster_2019mara, ROI)

chl.2019mar <- raster::extract(r.chl.2019mar, extract.pts, sp = T)

plot(r.chl.2019mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2019 apr
raster_2019apr <- "A20190912019120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2019apra <- raster(raster_2019apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2019apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20190912019120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2019apr <- crop(raster_2019apra, ROI)

chl.2019apr <- raster::extract(r.chl.2019apr, extract.pts, sp = T)

plot(r.chl.2019apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2019 may
raster_2019may <- "A20191212019151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2019maya <- raster(raster_2019may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2019maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20191212019151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2019may <- crop(raster_2019maya, ROI)

chl.2019may <- raster::extract(r.chl.2019may, extract.pts, sp = T)

plot(r.chl.2019may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2019 jun
raster_2019jun <- "A20191522019181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2019juna <- raster(raster_2019jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2019juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20191522019181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2019jun <- crop(raster_2019juna, ROI)

chl.2019jun <- raster::extract(r.chl.2019jun, extract.pts, sp = T)

plot(r.chl.2019jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2019 jul
raster_2019jul <- "A20191822019212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2019jula <- raster(raster_2019jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2019jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20191822019212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2019jul <- crop(raster_2019jula, ROI)

chl.2019jul <- raster::extract(r.chl.2019jul, extract.pts, sp = T)

plot(r.chl.2019jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2019 aug
raster_2019aug <- "A20192132019243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2019auga <- raster(raster_2019aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2019auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20192132019243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2019aug <- crop(raster_2019auga, ROI)

chl.2019aug <- raster::extract(r.chl.2019aug, extract.pts, sp = T)

plot(r.chl.2019aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2019 sep
raster_2019sep <- "A20192442019273.L3m_MO_CHL_chlor_a_4km.nc"
raster_2019sepa <- raster(raster_2019sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2019sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20192442019273.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2019sep <- crop(raster_2019sepa, ROI)

chl.2019sep <- raster::extract(r.chl.2019sep, extract.pts, sp = T)

plot(r.chl.2019sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2019 oct
raster_2019oct <- "A20192742019304.L3m_MO_CHL_chlor_a_4km.nc"
raster_2019octa <- raster(raster_2019oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2019octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20192742019304.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2019oct <- crop(raster_2019octa, ROI)

chl.2019oct <- raster::extract(r.chl.2019oct, extract.pts, sp = T)

plot(r.chl.2019oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2019 nov
raster_2019nov <- "A20193052019334.L3m_MO_CHL_chlor_a_4km.nc"
raster_2019nova <- raster(raster_2019nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2019nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20193052019334.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2019nov <- crop(raster_2019nova, ROI)

chl.2019nov <- raster::extract(r.chl.2019nov, extract.pts, sp = T)

plot(r.chl.2019nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2019 dec
raster_2019dec <- "A20193352019365.L3m_MO_CHL_chlor_a_4km.nc"
raster_2019deca <- raster(raster_2019dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2019deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20193352019365.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2019dec <- crop(raster_2019deca, ROI)

chl.2019dec <- raster::extract(r.chl.2019dec, extract.pts, sp = T)

plot(r.chl.2019dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2020 jan
raster_2020jan <- "A20200012020031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2020jana <- raster(raster_2020jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2020jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20200012020031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2020jan <- crop(raster_2020jana, ROI)

chl.2020jan <- raster::extract(r.chl.2020jan, extract.pts, sp = T)

plot(r.chl.2020jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2020 feb
raster_2020feb <- "A20200322020060.L3m_MO_CHL_chlor_a_4km.nc"
raster_2020feba <- raster(raster_2020feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2020feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20200322020060.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2020feb <- crop(raster_2020feba, ROI)

chl.2020feb <- raster::extract(r.chl.2020feb, extract.pts, sp = T)

plot(r.chl.2020feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2020 mar
raster_2020mar <- "A20200612020091.L3m_MO_CHL_chlor_a_4km.nc"
raster_2020mara <- raster(raster_2020mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2020mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20200612020091.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2020mar <- crop(raster_2020mara, ROI)

chl.2020mar <- raster::extract(r.chl.2020mar, extract.pts, sp = T)

plot(r.chl.2020mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2020 apr
raster_2020apr <- "A20200922020121.L3m_MO_CHL_chlor_a_4km.nc"
raster_2020apra <- raster(raster_2020apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2020apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20200922020121.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2020apr <- crop(raster_2020apra, ROI)

chl.2020apr <- raster::extract(r.chl.2020apr, extract.pts, sp = T)

plot(r.chl.2020apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2020 may
raster_2020may <- "A20201222020152.L3m_MO_CHL_chlor_a_4km.nc"
raster_2020maya <- raster(raster_2020may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2020maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20201222020152.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2020may <- crop(raster_2020maya, ROI)

chl.2020may <- raster::extract(r.chl.2020may, extract.pts, sp = T)

plot(r.chl.2020may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2020 jun
raster_2020jun <- "A20201532020182.L3m_MO_CHL_chlor_a_4km.nc"
raster_2020juna <- raster(raster_2020jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2020juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20201532020182.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2020jun <- crop(raster_2020juna, ROI)

chl.2020jun <- raster::extract(r.chl.2020jun, extract.pts, sp = T)

plot(r.chl.2020jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2020 jul
raster_2020jul <- "A20201832020213.L3m_MO_CHL_chlor_a_4km.nc"
raster_2020jula <- raster(raster_2020jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2020jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20201832020213.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2020jul <- crop(raster_2020jula, ROI)

chl.2020jul <- raster::extract(r.chl.2020jul, extract.pts, sp = T)

plot(r.chl.2020jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2020 aug
raster_2020aug <- "A20202142020244.L3m_MO_CHL_chlor_a_4km.nc"
raster_2020auga <- raster(raster_2020aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2020auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20202142020244.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2020aug <- crop(raster_2020auga, ROI)

chl.2020aug <- raster::extract(r.chl.2020aug, extract.pts, sp = T)

plot(r.chl.2020aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2020 sep
raster_2020sep <- "A20202452020274.L3m_MO_CHL_chlor_a_4km.nc"
raster_2020sepa <- raster(raster_2020sep)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2020sepa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20202452020274.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2020sep <- crop(raster_2020sepa, ROI)

chl.2020sep <- raster::extract(r.chl.2020sep, extract.pts, sp = T)

plot(r.chl.2020sep) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2020 oct
raster_2020oct <- "A20202752020305.L3m_MO_CHL_chlor_a_4km.nc"
raster_2020octa <- raster(raster_2020oct)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2020octa
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20202752020305.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2020oct <- crop(raster_2020octa, ROI)

chl.2020oct <- raster::extract(r.chl.2020oct, extract.pts, sp = T)

plot(r.chl.2020oct) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2020 nov
raster_2020nov <- "A20203062020335.L3m_MO_CHL_chlor_a_4km.nc"
raster_2020nova <- raster(raster_2020nov)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2020nova
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20203062020335.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2020nov <- crop(raster_2020nova, ROI)

chl.2020nov <- raster::extract(r.chl.2020nov, extract.pts, sp = T)

plot(r.chl.2020nov) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2020 dec
raster_2020dec <- "A20203362020366.L3m_MO_CHL_chlor_a_4km.nc"
raster_2020deca <- raster(raster_2020dec)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2020deca
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20203362020366.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2020dec <- crop(raster_2020deca, ROI)

chl.2020dec <- raster::extract(r.chl.2020dec, extract.pts, sp = T)

plot(r.chl.2020dec) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2021jan
raster_2021jan <- "A20210012021031.L3m_MO_CHL_chlor_a_4km.nc"
raster_2021jana <- raster(raster_2021jan)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2021jana
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20210012021031.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2021jan <- crop(raster_2021jana, ROI)

chl.2021jan <- raster::extract(r.chl.2021jan, extract.pts, sp = T)

plot(r.chl.2021jan) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2021feb
raster_2021feb <- "A20210322021059.L3m_MO_CHL_chlor_a_4km.nc"
raster_2021feba <- raster(raster_2021feb)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2021feba
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20210322021059.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2021feb <- crop(raster_2021feba, ROI)

chl.2021feb <- raster::extract(r.chl.2021feb, extract.pts, sp = T)

plot(r.chl.2021feb) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2021 mar
raster_2021mar <- "A20210602021090.L3m_MO_CHL_chlor_a_4km.nc"
raster_2021mara <- raster(raster_2021mar)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2021mara
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20210602021090.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2021mar <- crop(raster_2021mara, ROI)

chl.2021mar <- raster::extract(r.chl.2021mar, extract.pts, sp = T)

plot(r.chl.2021mar) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2021 apr
raster_2021apr <- "A20210912021120.L3m_MO_CHL_chlor_a_4km.nc"
raster_2021apra <- raster(raster_2021apr)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2021apra
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20210912021120.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2021apr <- crop(raster_2021apra, ROI)

chl.2021apr <- raster::extract(r.chl.2021apr, extract.pts, sp = T)

plot(r.chl.2021apr) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2021 may
raster_2021may <- "A20211212021151.L3m_MO_CHL_chlor_a_4km.nc"
raster_2021maya <- raster(raster_2021may)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2021maya
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20211212021151.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2021may <- crop(raster_2021maya, ROI)

chl.2021may <- raster::extract(r.chl.2021may, extract.pts, sp = T)
chl.2021may
##  [1]        NA  5.340163 11.070519  2.397069 14.691585  7.969918  7.093822
##  [8]        NA  9.359760 10.045435  6.831390
plot(r.chl.2021may) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2021 jun
raster_2021jun <- "A20211522021181.L3m_MO_CHL_chlor_a_4km.nc"
raster_2021juna <- raster(raster_2021jun)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2021juna
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20211522021181.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2021jun <- crop(raster_2021juna, ROI)

chl.2021jun <- raster::extract(r.chl.2021jun, extract.pts, sp = T)

plot(r.chl.2021jun) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2021 jul
raster_2021jul <- "A20211822021212.L3m_MO_CHL_chlor_a_4km.nc"
raster_2021jula <- raster(raster_2021jul)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2021jula
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20211822021212.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2021jul <- crop(raster_2021jula, ROI)

chl.2021jul <- raster::extract(r.chl.2021jul, extract.pts, sp = T)

plot(r.chl.2021jul) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2021 aug
raster_2021aug <- "A20212132021243.L3m_MO_CHL_chlor_a_4km.nc"
raster_2021auga <- raster(raster_2021aug)
## Warning in .varName(nc, varname, warn = warn): varname used is: chlor_a
## If that is not correct, you can set it to one of: chlor_a, palette
raster_2021auga
## class      : RasterLayer 
## dimensions : 4320, 8640, 37324800  (nrow, ncol, ncell)
## resolution : 0.04166667, 0.04166667  (x, y)
## extent     : -180, 180, -90.00001, 90  (xmin, xmax, ymin, ymax)
## crs        : +proj=longlat +datum=WGS84 +no_defs 
## source     : A20212132021243.L3m_MO_CHL_chlor_a_4km.nc 
## names      : Chlorophyll.Concentration..OCI.Algorithm 
## zvar       : chlor_a
r.chl.2021aug <- crop(raster_2021auga, ROI)

chl.2021aug <- raster::extract(r.chl.2021aug, extract.pts, sp = T)

plot(r.chl.2021aug) +  points(lon.pts, lat.pts, pch = 3, col = "red")

## integer(0)
### 2008 seasonal
chl.2007.sep <- data.frame(chl.2007sep) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2007sep) %>% 
  dplyr::select(site, chl)

chl.2007.oct <- data.frame(chl.2007oct) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2007oct) %>% 
  dplyr::select(site, chl)

chl.2007.nov <- data.frame(chl.2007nov) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2007nov) %>% 
  dplyr::select(site, chl)

chl.2008wb <- dplyr::bind_rows(chl.2007.sep, chl.2007.oct, chl.2007.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl_season_before = mean(chl)) %>% 
  mutate(year = 2008) %>% 
  mutate(season = "W")

chl.2007.dec <- data.frame(chl.2007dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007dec) %>% 
  dplyr::select(site, chl)

chl.2008.jan <- data.frame(chl.2008jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2008jan) %>% 
  dplyr::select(site, chl)

chl.2008.feb <- data.frame(chl.2008feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2008feb) %>% 
  dplyr::select(site, chl)

chl.2008w <- dplyr::bind_rows(chl.2007.dec, chl.2008.jan, chl.2008.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2008) %>% 
  mutate(season = "W")

chl.2008.w <- merge(chl.2008w, chl.2008wb)

chl.2008spb <- chl.2008w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2008) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2008.mar <- data.frame(chl.2008mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2008mar) %>% 
  dplyr::select(site, chl)

chl.2008.apr <- data.frame(chl.2008apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2008apr) %>% 
  dplyr::select(site, chl)

chl.2008.may <- data.frame(chl.2008may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2008may) %>% 
  dplyr::select(site, chl)

chl.2008sp <- dplyr::bind_rows(chl.2008.mar, chl.2008.apr, chl.2008.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2008) %>% 
  mutate(season = "Sp")

chl.2008.sp <- merge(chl.2008sp, chl.2008spb)

##summer 2008 
chl.2008sub <- chl.2008sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2008) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2008.jun <- data.frame(chl.2008jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2008jun) %>% 
  dplyr::select(site, chl)

chl.2008.jul <- data.frame(chl.2008jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2008jul) %>% 
  dplyr::select(site, chl)

chl.2008.aug <- data.frame(chl.2008aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2008aug) %>% 
  dplyr::select(site, chl)

chl.2008su <- dplyr::bind_rows(chl.2008.jun, chl.2008.jul, chl.2008.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2008) %>% 
  mutate(season = "Su")

chl.2008.su <- merge(chl.2008su, chl.2008sub)

##fall 2008 
chl.2008fb <- chl.2008su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2008) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2008.sep <- data.frame(chl.2008sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2008sep) %>% 
  dplyr::select(site, chl)

chl.2008.oct <- data.frame(chl.2008oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2008oct) %>% 
  dplyr::select(site, chl)

chl.2008.nov <- data.frame(chl.2008nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2008nov) %>% 
  dplyr::select(site, chl)

chl.2008f <- dplyr::bind_rows(chl.2008.sep, chl.2008.oct, chl.2008.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2008) %>% 
  mutate(season = "F")

chl.2008.f <- merge(chl.2008f, chl.2008fb)

### 2009 seasonal

chl.2009wb <- chl.2008f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2009) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2008.dec <- data.frame(chl.2008dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2008dec) %>% 
  dplyr::select(site, chl)

chl.2009.jan <- data.frame(chl.2009jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2009jan) %>% 
  dplyr::select(site, chl)

chl.2009.feb <- data.frame(chl.2009feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2009feb) %>% 
  dplyr::select(site, chl)

chl.2009w <- dplyr::bind_rows(chl.2008.dec, chl.2009.jan, chl.2009.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2009) %>% 
  mutate(season = "W")

chl.2009.w <- merge(chl.2009w, chl.2009wb)

chl.2009spb <- chl.2009w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2009) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2009.mar <- data.frame(chl.2009mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2009mar) %>% 
  dplyr::select(site, chl)

chl.2009.apr <- data.frame(chl.2009apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2009apr) %>% 
  dplyr::select(site, chl)

chl.2009.may <- data.frame(chl.2009may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2009may) %>% 
  dplyr::select(site, chl)

chl.2009sp <- dplyr::bind_rows(chl.2009.mar, chl.2009.apr, chl.2009.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2009) %>% 
  mutate(season = "Sp")

chl.2009.sp <- merge(chl.2009sp, chl.2009spb)

##summer 2009 
chl.2009sub <- chl.2009sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2009) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2009.jun <- data.frame(chl.2009jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2009jun) %>% 
  dplyr::select(site, chl)

chl.2009.jul <- data.frame(chl.2009jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2009jul) %>% 
  dplyr::select(site, chl)

chl.2009.aug <- data.frame(chl.2009aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2009aug) %>% 
  dplyr::select(site, chl)

chl.2009su <- dplyr::bind_rows(chl.2009.jun, chl.2009.jul, chl.2009.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2009) %>% 
  mutate(season = "Su")

chl.2009.su <- merge(chl.2009su, chl.2009sub)

##fall 2009 
chl.2009fb <- chl.2009su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2009) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2009.sep <- data.frame(chl.2009sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2009sep) %>% 
  dplyr::select(site, chl)

chl.2009.oct <- data.frame(chl.2009oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2009oct) %>% 
  dplyr::select(site, chl)

chl.2009.nov <- data.frame(chl.2009nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2009nov) %>% 
  dplyr::select(site, chl)

chl.2009f <- dplyr::bind_rows(chl.2009.sep, chl.2009.oct, chl.2009.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2009) %>% 
  mutate(season = "F")

chl.2009.f <- merge(chl.2009f, chl.2009fb)

### 2010 seasonal

chl.2010wb <- chl.2009f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2010) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2009.dec <- data.frame(chl.2009dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2009dec) %>% 
  dplyr::select(site, chl)

chl.2010.jan <- data.frame(chl.2010jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2010jan) %>% 
  dplyr::select(site, chl)

chl.2010.feb <- data.frame(chl.2010feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2010feb) %>% 
  dplyr::select(site, chl)

chl.2010w <- dplyr::bind_rows(chl.2009.dec, chl.2010.jan, chl.2010.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2010) %>% 
  mutate(season = "W")

chl.2010.w <- merge(chl.2010w, chl.2010wb)

chl.2010spb <- chl.2010w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2010) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2010.mar <- data.frame(chl.2010mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2010mar) %>% 
  dplyr::select(site, chl)

chl.2010.apr <- data.frame(chl.2010apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2010apr) %>% 
  dplyr::select(site, chl)

chl.2010.may <- data.frame(chl.2010may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2010may) %>% 
  dplyr::select(site, chl)

chl.2010sp <- dplyr::bind_rows(chl.2010.mar, chl.2010.apr, chl.2010.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2010) %>% 
  mutate(season = "Sp")

chl.2010.sp <- merge(chl.2010sp, chl.2010spb)

##summer 2010
chl.2010sub <- chl.2010sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2010) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2010.jun <- data.frame(chl.2010jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2010jun) %>% 
  dplyr::select(site, chl)

chl.2010.jul <- data.frame(chl.2010jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2010jul) %>% 
  dplyr::select(site, chl)

chl.2010.aug <- data.frame(chl.2010aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2010aug) %>% 
  dplyr::select(site, chl)

chl.2010su <- dplyr::bind_rows(chl.2010.jun, chl.2010.jul, chl.2010.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2010) %>% 
  mutate(season = "Su")

chl.2010.su <- merge(chl.2010su, chl.2010sub)

##fall 2009 
chl.2010fb <- chl.2010su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2010) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2010.sep <- data.frame(chl.2010sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2010sep) %>% 
  dplyr::select(site, chl)

chl.2010.oct <- data.frame(chl.2010oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2010oct) %>% 
  dplyr::select(site, chl)

chl.2010.nov <- data.frame(chl.2010nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2010nov) %>% 
  dplyr::select(site, chl)

chl.2010f <- dplyr::bind_rows(chl.2010.sep, chl.2010.oct, chl.2010.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2010) %>% 
  mutate(season = "F")

chl.2010.f <- merge(chl.2010f, chl.2010fb)

### 2011 seasonal

chl.2011wb <- chl.2010f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2011) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2010.dec <- data.frame(chl.2010dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2010dec) %>% 
  dplyr::select(site, chl)

chl.2011.jan <- data.frame(chl.2011jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2011jan) %>% 
  dplyr::select(site, chl)

chl.2011.feb <- data.frame(chl.2011feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2011feb) %>% 
  dplyr::select(site, chl)

chl.2011w <- dplyr::bind_rows(chl.2010.dec, chl.2011.jan, chl.2011.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2011) %>% 
  mutate(season = "W")

chl.2011.w <- merge(chl.2011w, chl.2011wb)

chl.2011spb <- chl.2011w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2011) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2011.mar <- data.frame(chl.2011mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2011mar) %>% 
  dplyr::select(site, chl)

chl.2011.apr <- data.frame(chl.2011apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2011apr) %>% 
  dplyr::select(site, chl)

chl.2011.may <- data.frame(chl.2011may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2011may) %>% 
  dplyr::select(site, chl)

chl.2011sp <- dplyr::bind_rows(chl.2011.mar, chl.2011.apr, chl.2011.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2011) %>% 
  mutate(season = "Sp")

chl.2011.sp <- merge(chl.2011sp, chl.2011spb)

##summer 2011
chl.2011sub <- chl.2011sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2011) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2011.jun <- data.frame(chl.2011jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2011jun) %>% 
  dplyr::select(site, chl)

chl.2011.jul <- data.frame(chl.2011jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2011jul) %>% 
  dplyr::select(site, chl)

chl.2011.aug <- data.frame(chl.2011aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2011aug) %>% 
  dplyr::select(site, chl)

chl.2011su <- dplyr::bind_rows(chl.2011.jun, chl.2011.jul, chl.2011.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2011) %>% 
  mutate(season = "Su")

chl.2011.su <- merge(chl.2011su, chl.2011sub)

##fall 2011 
chl.2011fb <- chl.2011su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2011) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2011.sep <- data.frame(chl.2011sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2011sep) %>% 
  dplyr::select(site, chl)

chl.2011.oct <- data.frame(chl.2011oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2011oct) %>% 
  dplyr::select(site, chl)

chl.2011.nov <- data.frame(chl.2011nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2011nov) %>% 
  dplyr::select(site, chl)

chl.2011f <- dplyr::bind_rows(chl.2011.sep, chl.2011.oct, chl.2011.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2011) %>% 
  mutate(season = "F")

chl.2011.f <- merge(chl.2011f, chl.2011fb)

### 2012 seasonal

chl.2012wb <- chl.2011f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2012) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2011.dec <- data.frame(chl.2011dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2011dec) %>% 
  dplyr::select(site, chl)

chl.2012.jan <- data.frame(chl.2012jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2012jan) %>% 
  dplyr::select(site, chl)

chl.2012.feb <- data.frame(chl.2012feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2012feb) %>% 
  dplyr::select(site, chl)

chl.2012w <- dplyr::bind_rows(chl.2011.dec, chl.2012.jan, chl.2012.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2012) %>% 
  mutate(season = "W")

chl.2012.w <- merge(chl.2012w, chl.2012wb)

chl.2012spb <- chl.2012w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2012) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2012.mar <- data.frame(chl.2012mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2012mar) %>% 
  dplyr::select(site, chl)

chl.2012.apr <- data.frame(chl.2012apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2012apr) %>% 
  dplyr::select(site, chl)

chl.2012.may <- data.frame(chl.2012may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2012may) %>% 
  dplyr::select(site, chl)

chl.2012sp <- dplyr::bind_rows(chl.2012.mar, chl.2012.apr, chl.2012.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2012) %>% 
  mutate(season = "Sp")

chl.2012.sp <- merge(chl.2012sp, chl.2012spb)

##summer 2012
chl.2012sub <- chl.2012sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2012) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2012.jun <- data.frame(chl.2012jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2012jun) %>% 
  dplyr::select(site, chl)

chl.2012.jul <- data.frame(chl.2012jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2012jul) %>% 
  dplyr::select(site, chl)

chl.2012.aug <- data.frame(chl.2012aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2012aug) %>% 
  dplyr::select(site, chl)

chl.2012su <- dplyr::bind_rows(chl.2012.jun, chl.2012.jul, chl.2012.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2012) %>% 
  mutate(season = "Su")

chl.2012.su <- merge(chl.2012su, chl.2012sub)

##fall 2012 
chl.2012fb <- chl.2012su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2012) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2012.sep <- data.frame(chl.2012sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2012sep) %>% 
  dplyr::select(site, chl)

chl.2012.oct <- data.frame(chl.2012oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2012oct) %>% 
  dplyr::select(site, chl)

chl.2012.nov <- data.frame(chl.2012nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2012nov) %>% 
  dplyr::select(site, chl)

chl.2012f <- dplyr::bind_rows(chl.2012.sep, chl.2012.oct, chl.2012.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2012) %>% 
  mutate(season = "F")

chl.2012.f <- merge(chl.2012f, chl.2012fb)

## 2013

chl.2013wb <- chl.2012f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2013) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2012.dec <- data.frame(chl.2012dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2012dec) %>% 
  dplyr::select(site, chl)

chl.2013.jan <- data.frame(chl.2013jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2013jan) %>% 
  dplyr::select(site, chl)

chl.2013.feb <- data.frame(chl.2013feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2013feb) %>% 
  dplyr::select(site, chl)

chl.2013w <- dplyr::bind_rows(chl.2012.dec, chl.2013.jan, chl.2013.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2013) %>% 
  mutate(season = "W")

chl.2013.w <- merge(chl.2013w, chl.2013wb)

chl.2013spb <- chl.2013w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2013) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2013.mar <- data.frame(chl.2013mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2013mar) %>% 
  dplyr::select(site, chl) %>% 
  mutate(chl = case_when(
    chl >= 20.0 ~ "NA",
    TRUE ~ as.character(as.numeric(chl)))) %>% 
  mutate(chl = as.numeric(chl))
## Warning in mask$eval_all_mutate(quo): NAs introduced by coercion
chl.2013.apr <- data.frame(chl.2013apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2013apr) %>% 
  dplyr::select(site, chl)

chl.2013.may <- data.frame(chl.2013may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2013may) %>% 
  dplyr::select(site, chl)

chl.2013sp <- dplyr::bind_rows(chl.2013.mar, chl.2013.apr, chl.2013.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2013) %>% 
  mutate(season = "Sp")

chl.2013.sp <- merge(chl.2013sp, chl.2013spb)

##summer 2012
chl.2013sub <- chl.2013sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2013) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2013.jun <- data.frame(chl.2013jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2013jun) %>% 
  dplyr::select(site, chl)

chl.2013.jul <- data.frame(chl.2013jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2013jul) %>% 
  dplyr::select(site, chl)

chl.2013.aug <- data.frame(chl.2013aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2013aug) %>% 
  dplyr::select(site, chl)

chl.2013su <- dplyr::bind_rows(chl.2013.jun, chl.2013.jul, chl.2013.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2013) %>% 
  mutate(season = "Su")

chl.2013.su <- merge(chl.2013su, chl.2013sub)

##fall 2012 
chl.2013fb <- chl.2013su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2013) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2013.sep <- data.frame(chl.2013sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2013sep) %>% 
  dplyr::select(site, chl)

chl.2013.oct <- data.frame(chl.2013oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2013oct) %>% 
  dplyr::select(site, chl)

chl.2013.nov <- data.frame(chl.2013nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2013nov) %>% 
  dplyr::select(site, chl)

chl.2013f <- dplyr::bind_rows(chl.2013.sep, chl.2013.oct, chl.2013.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2013) %>% 
  mutate(season = "F")

chl.2013.f <- merge(chl.2013f, chl.2013fb)

## 2014

chl.2014wb <- chl.2013f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2014) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2013.dec <- data.frame(chl.2013dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2013dec) %>% 
  dplyr::select(site, chl)

chl.2014.jan <- data.frame(chl.2014jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2014jan) %>% 
  dplyr::select(site, chl)

chl.2014.feb <- data.frame(chl.2014feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2014feb) %>% 
  dplyr::select(site, chl)

chl.2014w <- dplyr::bind_rows(chl.2013.dec, chl.2014.jan, chl.2014.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2014) %>% 
  mutate(season = "W")

chl.2014.w <- merge(chl.2014w, chl.2014wb)

chl.2014spb <- chl.2014w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2014) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2014.mar <- data.frame(chl.2014mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2014mar) %>% 
  dplyr::select(site, chl)

chl.2014.apr <- data.frame(chl.2014apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2014apr) %>% 
  dplyr::select(site, chl)

chl.2014.may <- data.frame(chl.2014may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2014may) %>% 
  dplyr::select(site, chl)

chl.2014sp <- dplyr::bind_rows(chl.2014.mar, chl.2014.apr, chl.2014.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2014) %>% 
  mutate(season = "Sp")

chl.2014.sp <- merge(chl.2014sp, chl.2014spb)

##summer 2012
chl.2014sub <- chl.2014sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2014) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2014.jun <- data.frame(chl.2014jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2014jun) %>% 
  dplyr::select(site, chl)

chl.2014.jul <- data.frame(chl.2014jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2014jul) %>% 
  dplyr::select(site, chl)

chl.2014.aug <- data.frame(chl.2014aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2014aug) %>% 
  dplyr::select(site, chl)

chl.2014su <- dplyr::bind_rows(chl.2014.jun, chl.2014.jul, chl.2014.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2014) %>% 
  mutate(season = "Su")

chl.2014.su <- merge(chl.2014su, chl.2014sub)

##fall 2012 
chl.2014fb <- chl.2014su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2014) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2014.sep <- data.frame(chl.2014sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2014sep) %>% 
  dplyr::select(site, chl)

chl.2014.oct <- data.frame(chl.2014oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2014oct) %>% 
  dplyr::select(site, chl)

chl.2014.nov <- data.frame(chl.2014nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2014nov) %>% 
  dplyr::select(site, chl)

chl.2014f <- dplyr::bind_rows(chl.2014.sep, chl.2014.oct, chl.2014.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2014) %>% 
  mutate(season = "F")

chl.2014.f <- merge(chl.2014f, chl.2014fb)

## 2015

chl.2015wb <- chl.2014f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2015) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2014.dec <- data.frame(chl.2014dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2014dec) %>% 
  dplyr::select(site, chl)

chl.2015.jan <- data.frame(chl.2015jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2015jan) %>% 
  dplyr::select(site, chl)

chl.2015.feb <- data.frame(chl.2015feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2015feb) %>% 
  dplyr::select(site, chl)

chl.2015w <- dplyr::bind_rows(chl.2014.dec, chl.2015.jan, chl.2015.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2015) %>% 
  mutate(season = "W")

chl.2015.w <- merge(chl.2015w, chl.2015wb)

chl.2015spb <- chl.2015w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2015) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2015.mar <- data.frame(chl.2015mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2015mar) %>% 
  dplyr::select(site, chl)

chl.2015.apr <- data.frame(chl.2015apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2015apr) %>% 
  dplyr::select(site, chl)

chl.2015.may <- data.frame(chl.2015may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2015may) %>% 
  dplyr::select(site, chl)

chl.2015sp <- dplyr::bind_rows(chl.2015.mar, chl.2015.apr, chl.2015.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2015) %>% 
  mutate(season = "Sp")

chl.2015.sp <- merge(chl.2015sp, chl.2015spb)

##summer 2012
chl.2015sub <- chl.2015sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2015) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2015.jun <- data.frame(chl.2015jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2015jun) %>% 
  dplyr::select(site, chl)

chl.2015.jul <- data.frame(chl.2015jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2015jul) %>% 
  dplyr::select(site, chl)

chl.2015.aug <- data.frame(chl.2015aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2015aug) %>% 
  dplyr::select(site, chl)

chl.2015su <- dplyr::bind_rows(chl.2015.jun, chl.2015.jul, chl.2015.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2015) %>% 
  mutate(season = "Su")

chl.2015.su <- merge(chl.2015su, chl.2015sub)

##fall 2012 
chl.2015fb <- chl.2015su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2015) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2015.sep <- data.frame(chl.2015sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2015sep) %>% 
  dplyr::select(site, chl)

chl.2015.oct <- data.frame(chl.2015oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2015oct) %>% 
  dplyr::select(site, chl)

chl.2015.nov <- data.frame(chl.2015nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2015nov) %>% 
  dplyr::select(site, chl)

chl.2015f <- dplyr::bind_rows(chl.2015.sep, chl.2015.oct, chl.2015.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2015) %>% 
  mutate(season = "F")

chl.2015.f <- merge(chl.2015f, chl.2015fb)

## 2016

chl.2016wb <- chl.2015f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2016) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2015.dec <- data.frame(chl.2015dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2015dec) %>% 
  dplyr::select(site, chl)

chl.2016.jan <- data.frame(chl.2016jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2016jan) %>% 
  dplyr::select(site, chl)

chl.2016.feb <- data.frame(chl.2016feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2016feb) %>% 
  dplyr::select(site, chl)

chl.2016w <- dplyr::bind_rows(chl.2015.dec, chl.2016.jan, chl.2016.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2016) %>% 
  mutate(season = "W")

chl.2016.w <- merge(chl.2016w, chl.2016wb)

chl.2016spb <- chl.2016w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2016) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2016.mar <- data.frame(chl.2016mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2016mar) %>% 
  dplyr::select(site, chl)

chl.2016.apr <- data.frame(chl.2016apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2016apr) %>% 
  dplyr::select(site, chl)

chl.2016.may <- data.frame(chl.2016may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2016may) %>% 
  dplyr::select(site, chl)

chl.2016sp <- dplyr::bind_rows(chl.2016.mar, chl.2016.apr, chl.2016.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2016) %>% 
  mutate(season = "Sp")

chl.2016.sp <- merge(chl.2016sp, chl.2016spb)

##summer 2012
chl.2016sub <- chl.2016sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2016) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2016.jun <- data.frame(chl.2016jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2016jun) %>% 
  dplyr::select(site, chl)

chl.2016.jul <- data.frame(chl.2016jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2016jul) %>% 
  dplyr::select(site, chl)

chl.2016.aug <- data.frame(chl.2016aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2016aug) %>% 
  dplyr::select(site, chl)

chl.2016su <- dplyr::bind_rows(chl.2016.jun, chl.2016.jul, chl.2016.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2016) %>% 
  mutate(season = "Su")

chl.2016.su <- merge(chl.2016su, chl.2016sub)

##fall 2012 
chl.2016fb <- chl.2016su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2016) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2016.sep <- data.frame(chl.2016sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2016sep) %>% 
  dplyr::select(site, chl)

chl.2016.oct <- data.frame(chl.2016oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2016oct) %>% 
  dplyr::select(site, chl)

chl.2016.nov <- data.frame(chl.2016nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2016nov) %>% 
  dplyr::select(site, chl)

chl.2016f <- dplyr::bind_rows(chl.2016.sep, chl.2016.oct, chl.2016.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2016) %>% 
  mutate(season = "F")

chl.2016.f <- merge(chl.2016f, chl.2016fb)


## 2017

chl.2017wb <- chl.2016f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2017) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2016.dec <- data.frame(chl.2016dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2016dec) %>% 
  dplyr::select(site, chl)

chl.2017.jan <- data.frame(chl.2017jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2017jan) %>% 
  dplyr::select(site, chl)

chl.2017.feb <- data.frame(chl.2017feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2017feb) %>% 
  dplyr::select(site, chl)

chl.2017w <- dplyr::bind_rows(chl.2016.dec, chl.2017.jan, chl.2017.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2017) %>% 
  mutate(season = "W")

chl.2017.w <- merge(chl.2017w, chl.2017wb)

chl.2017spb <- chl.2017w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2017) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2017.mar <- data.frame(chl.2017mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2017mar) %>% 
  dplyr::select(site, chl)

chl.2017.apr <- data.frame(chl.2017apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2017apr) %>% 
  dplyr::select(site, chl)

chl.2017.may <- data.frame(chl.2017may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2017may) %>% 
  dplyr::select(site, chl)

chl.2017sp <- dplyr::bind_rows(chl.2017.mar, chl.2017.apr, chl.2017.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2017) %>% 
  mutate(season = "Sp")

chl.2017.sp <- merge(chl.2017sp, chl.2017spb)

##summer 2012
chl.2017sub <- chl.2017sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2017) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2017.jun <- data.frame(chl.2017jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2017jun) %>% 
  dplyr::select(site, chl)

chl.2017.jul <- data.frame(chl.2017jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2017jul) %>% 
  dplyr::select(site, chl)

chl.2017.aug <- data.frame(chl.2017aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2017aug) %>% 
  dplyr::select(site, chl)

chl.2017su <- dplyr::bind_rows(chl.2017.jun, chl.2017.jul, chl.2017.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2017) %>% 
  mutate(season = "Su")

chl.2017.su <- merge(chl.2017su, chl.2017sub)

##fall 2012 
chl.2017fb <- chl.2017su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2017) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2017.sep <- data.frame(chl.2017sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2017sep) %>% 
  dplyr::select(site, chl)

chl.2017.oct <- data.frame(chl.2017oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2017oct) %>% 
  dplyr::select(site, chl)

chl.2017.nov <- data.frame(chl.2017nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2017nov) %>% 
  dplyr::select(site, chl)

chl.2017f <- dplyr::bind_rows(chl.2017.sep, chl.2017.oct, chl.2017.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2017) %>% 
  mutate(season = "F")

chl.2017.f <- merge(chl.2017f, chl.2017fb)


## 2018

chl.2018wb <- chl.2017f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2018) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2017.dec <- data.frame(chl.2017dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2017dec) %>% 
  dplyr::select(site, chl)

chl.2018.jan <- data.frame(chl.2018jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2018jan) %>% 
  dplyr::select(site, chl)

chl.2018.feb <- data.frame(chl.2018feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2018feb) %>% 
  dplyr::select(site, chl)

chl.2018w <- dplyr::bind_rows(chl.2017.dec, chl.2018.jan, chl.2018.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2018) %>% 
  mutate(season = "W")

chl.2018.w <- merge(chl.2018w, chl.2018wb)

chl.2018spb <- chl.2018w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2018) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2018.mar <- data.frame(chl.2018mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2018mar) %>% 
  dplyr::select(site, chl)

chl.2018.apr <- data.frame(chl.2018apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2018apr) %>% 
  dplyr::select(site, chl)

chl.2018.may <- data.frame(chl.2018may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2018may) %>% 
  dplyr::select(site, chl)

chl.2018sp <- dplyr::bind_rows(chl.2018.mar, chl.2018.apr, chl.2018.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2018) %>% 
  mutate(season = "Sp")

chl.2018.sp <- merge(chl.2018sp, chl.2018spb)

##summer 2012
chl.2018sub <- chl.2018sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2018) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2018.jun <- data.frame(chl.2018jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2018jun) %>% 
  dplyr::select(site, chl)

chl.2018.jul <- data.frame(chl.2018jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2018jul) %>% 
  dplyr::select(site, chl)

chl.2018.aug <- data.frame(chl.2018aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2018aug) %>% 
  dplyr::select(site, chl)

chl.2018su <- dplyr::bind_rows(chl.2018.jun, chl.2018.jul, chl.2018.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2018) %>% 
  mutate(season = "Su")

chl.2018.su <- merge(chl.2018su, chl.2018sub)

##fall 2012 
chl.2018fb <- chl.2018su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2018) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2018.sep <- data.frame(chl.2018sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2018sep) %>% 
  dplyr::select(site, chl)

chl.2018.oct <- data.frame(chl.2018oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2018oct) %>% 
  dplyr::select(site, chl)

chl.2018.nov <- data.frame(chl.2018nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2018nov) %>% 
  dplyr::select(site, chl)

chl.2018f <- dplyr::bind_rows(chl.2018.sep, chl.2018.oct, chl.2018.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2018) %>% 
  mutate(season = "F")

chl.2018.f <- merge(chl.2018f, chl.2018fb)

## 2019

chl.2019wb <- chl.2018f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2019) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2018.dec <- data.frame(chl.2018dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2018dec) %>% 
  dplyr::select(site, chl)

chl.2019.jan <- data.frame(chl.2019jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2019jan) %>% 
  dplyr::select(site, chl)

chl.2019.feb <- data.frame(chl.2019feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2019feb) %>% 
  dplyr::select(site, chl)

chl.2019w <- dplyr::bind_rows(chl.2018.dec, chl.2019.jan, chl.2019.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2019) %>% 
  mutate(season = "W")

chl.2019.w <- merge(chl.2019w, chl.2019wb)

chl.2019spb <- chl.2019w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2019) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2019.mar <- data.frame(chl.2019mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2019mar) %>% 
  dplyr::select(site, chl)

chl.2019.apr <- data.frame(chl.2019apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2019apr) %>% 
  dplyr::select(site, chl)

chl.2019.may <- data.frame(chl.2019may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2019may) %>% 
  dplyr::select(site, chl)

chl.2019sp <- dplyr::bind_rows(chl.2019.mar, chl.2019.apr, chl.2019.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2019) %>% 
  mutate(season = "Sp")

chl.2019.sp <- merge(chl.2019sp, chl.2019spb)

##summer 2012
chl.2019sub <- chl.2019sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2019) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2019.jun <- data.frame(chl.2019jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2019jun) %>% 
  dplyr::select(site, chl)

chl.2019.jul <- data.frame(chl.2019jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2019jul) %>% 
  dplyr::select(site, chl)

chl.2019.aug <- data.frame(chl.2019aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2019aug) %>% 
  dplyr::select(site, chl)

chl.2019su <- dplyr::bind_rows(chl.2019.jun, chl.2019.jul, chl.2019.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2019) %>% 
  mutate(season = "Su")

chl.2019.su <- merge(chl.2019su, chl.2019sub)

##fall 2012 
chl.2019fb <- chl.2019su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2019) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2019.sep <- data.frame(chl.2019sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2019sep) %>% 
  dplyr::select(site, chl)

chl.2019.oct <- data.frame(chl.2019oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2019oct) %>% 
  dplyr::select(site, chl)

chl.2019.nov <- data.frame(chl.2019nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2019nov) %>% 
  dplyr::select(site, chl)

chl.2019f <- dplyr::bind_rows(chl.2019.sep, chl.2019.oct, chl.2019.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2019) %>% 
  mutate(season = "F")

chl.2019.f <- merge(chl.2019f, chl.2019fb)

## 2020

chl.2020wb <- chl.2019f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2020) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2019.dec <- data.frame(chl.2019dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2019dec) %>% 
  dplyr::select(site, chl)

chl.2020.jan <- data.frame(chl.2020jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2020jan) %>% 
  dplyr::select(site, chl)

chl.2020.feb <- data.frame(chl.2020feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2020feb) %>% 
  dplyr::select(site, chl)

chl.2020w <- dplyr::bind_rows(chl.2019.dec, chl.2020.jan, chl.2020.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2020) %>% 
  mutate(season = "W")

chl.2020.w <- merge(chl.2020w, chl.2020wb)

chl.2020spb <- chl.2020w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2020) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2020.mar <- data.frame(chl.2020mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2020mar) %>% 
  dplyr::select(site, chl)

chl.2020.apr <- data.frame(chl.2020apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2020apr) %>% 
  dplyr::select(site, chl)

chl.2020.may <- data.frame(chl.2020may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2020may) %>% 
  dplyr::select(site, chl)

chl.2020sp <- dplyr::bind_rows(chl.2020.mar, chl.2020.apr, chl.2020.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2020) %>% 
  mutate(season = "Sp")

chl.2020.sp <- merge(chl.2020sp, chl.2020spb)

##summer 2020
chl.2020sub <- chl.2020sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2020) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2020.jun <- data.frame(chl.2020jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2020jun) %>% 
  dplyr::select(site, chl)

chl.2020.jul <- data.frame(chl.2020jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2020jul) %>% 
  dplyr::select(site, chl)

chl.2020.aug <- data.frame(chl.2020aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2020aug) %>% 
  dplyr::select(site, chl)

chl.2020su <- dplyr::bind_rows(chl.2020.jun, chl.2020.jul, chl.2020.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2020) %>% 
  mutate(season = "Su")

chl.2020.su <- merge(chl.2020su, chl.2020sub)

##fall 2020 
chl.2020fb <- chl.2020su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2020) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2020.sep <- data.frame(chl.2020sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2020sep) %>% 
  dplyr::select(site, chl)

chl.2020.oct <- data.frame(chl.2020oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2020oct) %>% 
  dplyr::select(site, chl)

chl.2020.nov <- data.frame(chl.2020nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2020nov) %>% 
  dplyr::select(site, chl)

chl.2020f <- dplyr::bind_rows(chl.2020.sep, chl.2020.oct, chl.2020.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2020) %>% 
  mutate(season = "F")

chl.2020.f <- merge(chl.2020f, chl.2020fb)

## 2021

chl.2021wb <- chl.2020f %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2021) %>% 
  mutate(season = "W") %>% 
  dplyr::select(site, year, season, chl_season_before)

chl.2020.dec <- data.frame(chl.2020dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2020dec) %>% 
  dplyr::select(site, chl)

chl.2021.jan <- data.frame(chl.2021jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2021jan) %>% 
  dplyr::select(site, chl)

chl.2021.feb <- data.frame(chl.2021feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2021feb) %>% 
  dplyr::select(site, chl)

chl.2021w <- dplyr::bind_rows(chl.2020.dec, chl.2021.jan, chl.2021.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2021) %>% 
  mutate(season = "W")

chl.2021.w <- merge(chl.2021w, chl.2021wb)

chl.2021spb <- chl.2021w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2021) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2021.mar <- data.frame(chl.2021mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2021mar) %>% 
  dplyr::select(site, chl)

chl.2021.apr <- data.frame(chl.2021apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2021apr) %>% 
  dplyr::select(site, chl)

chl.2021.may <- data.frame(chl.2021may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2021may) %>% 
  dplyr::select(site, chl)

chl.2021sp <- dplyr::bind_rows(chl.2021.mar, chl.2021.apr, chl.2021.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2021) %>% 
  mutate(season = "Sp")

chl.2021.sp <- merge(chl.2021sp, chl.2021spb)

##summer 2021
chl.2021sub <- chl.2021sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2021) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2021.jun <- data.frame(chl.2021jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2021jun) %>% 
  dplyr::select(site, chl)

chl.2021.jul <- data.frame(chl.2021jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2021jul) %>% 
  dplyr::select(site, chl)

chl.2021.aug <- data.frame(chl.2021aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2021aug) %>% 
  dplyr::select(site, chl)

chl.2021su <- dplyr::bind_rows(chl.2021.jun, chl.2021.jul, chl.2021.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2021) %>% 
  mutate(season = "Su")

chl.2021.su <- merge(chl.2021su, chl.2021sub)

chl_seasonal_lte <- bind_rows(chl.2008.w, chl.2008.sp, chl.2008.su, chl.2008.f,
                              chl.2009.w, chl.2009.sp, chl.2009.su, chl.2009.f,
                              chl.2010.w, chl.2010.sp, chl.2010.su, chl.2010.f,
                              chl.2011.w, chl.2011.sp, chl.2011.su, chl.2011.f,
                              chl.2012.w, chl.2012.sp, chl.2012.su, chl.2012.f,
                              chl.2013.w, chl.2013.sp, chl.2013.su, chl.2013.f,
                              chl.2014.w, chl.2014.sp, chl.2014.su, chl.2014.f,
                              chl.2015.w, chl.2015.sp, chl.2015.su, chl.2015.f,
                              chl.2016.w, chl.2016.sp, chl.2016.su, chl.2016.f,
                              chl.2017.w, chl.2017.sp, chl.2017.su, chl.2017.f,
                              chl.2018.w, chl.2018.sp, chl.2018.su, chl.2018.f,
                              chl.2019.w, chl.2019.sp, chl.2019.su, chl.2019.f,
                              chl.2020.w, chl.2020.sp, chl.2020.su, chl.2020.f,
                              chl.2021.w, chl.2021.sp, chl.2021.su) %>% 
  arrange(site, year)
chl.2002.sep <- data.frame(chl.2002sep) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2002sep) %>% 
  dplyr::select(site, chl)

chl.2002.oct <- data.frame(chl.2002oct) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2002oct) %>% 
  dplyr::select(site, chl)

chl.2002.nov <- data.frame(chl.2002nov) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2002nov) %>% 
  dplyr::select(site, chl)

chl.2002.dec <- data.frame(chl.2002dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2002dec) %>% 
  dplyr::select(site, chl)

chl.2002.jul <- data.frame(chl.2002jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2002jul) %>% 
  dplyr::select(site, chl)

chl.2002.aug <- data.frame(chl.2002aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2002aug) %>% 
  dplyr::select(site, chl)

### 2003

chl.2003.sep <- data.frame(chl.2003sep) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2003sep) %>% 
  dplyr::select(site, chl)

chl.2003.oct <- data.frame(chl.2003oct) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2003oct) %>% 
  dplyr::select(site, chl)

chl.2003.nov <- data.frame(chl.2003nov) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2003nov) %>% 
  dplyr::select(site, chl)

chl.2003.dec <- data.frame(chl.2003dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003dec) %>% 
  dplyr::select(site, chl)

chl.2003.jan <- data.frame(chl.2003jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003jan) %>% 
  dplyr::select(site, chl)

chl.2003.feb <- data.frame(chl.2003feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003feb) %>% 
  dplyr::select(site, chl)


chl.2003.mar <- data.frame(chl.2003mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003mar) %>% 
  dplyr::select(site, chl)

chl.2003.apr <- data.frame(chl.2003apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003apr) %>% 
  dplyr::select(site, chl)

chl.2003.may <- data.frame(chl.2003may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003may) %>% 
  dplyr::select(site, chl)

chl.2003.jun <- data.frame(chl.2003jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003jun) %>% 
  dplyr::select(site, chl)

chl.2003.jul <- data.frame(chl.2003jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003jul) %>% 
  dplyr::select(site, chl)

chl.2003.aug <- data.frame(chl.2003aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003aug) %>% 
  dplyr::select(site, chl)

### 2004

chl.2004.sep <- data.frame(chl.2004sep) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2004sep) %>% 
  dplyr::select(site, chl)

chl.2004.oct <- data.frame(chl.2004oct) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2004oct) %>% 
  dplyr::select(site, chl)

chl.2004.nov <- data.frame(chl.2004nov) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2004nov) %>% 
  dplyr::select(site, chl)

chl.2004.dec <- data.frame(chl.2004dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004dec) %>% 
  dplyr::select(site, chl)

chl.2004.jan <- data.frame(chl.2004jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004jan) %>% 
  dplyr::select(site, chl)

chl.2004.feb <- data.frame(chl.2004feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004feb) %>% 
  dplyr::select(site, chl)


chl.2004.mar <- data.frame(chl.2004mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004mar) %>% 
  dplyr::select(site, chl)

chl.2004.apr <- data.frame(chl.2004apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004apr) %>% 
  dplyr::select(site, chl)

chl.2004.may <- data.frame(chl.2004may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004may) %>% 
  dplyr::select(site, chl)

chl.2004.jun <- data.frame(chl.2004jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004jun) %>% 
  dplyr::select(site, chl)

chl.2004.jul <- data.frame(chl.2004jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004jul) %>% 
  dplyr::select(site, chl)

chl.2004.aug <- data.frame(chl.2004aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004aug) %>% 
  dplyr::select(site, chl)

### 2005

chl.2005.sep <- data.frame(chl.2005sep) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2005sep) %>% 
  dplyr::select(site, chl)

chl.2005.oct <- data.frame(chl.2005oct) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2005oct) %>% 
  dplyr::select(site, chl)

chl.2005.nov <- data.frame(chl.2005nov) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2005nov) %>% 
  dplyr::select(site, chl)

chl.2005.dec <- data.frame(chl.2005dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005dec) %>% 
  dplyr::select(site, chl)

chl.2005.jan <- data.frame(chl.2005jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005jan) %>% 
  dplyr::select(site, chl)

chl.2005.feb <- data.frame(chl.2005feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005feb) %>% 
  dplyr::select(site, chl)


chl.2005.mar <- data.frame(chl.2005mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005mar) %>% 
  dplyr::select(site, chl)

chl.2005.apr <- data.frame(chl.2005apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005apr) %>% 
  dplyr::select(site, chl)

chl.2005.may <- data.frame(chl.2005may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005may) %>% 
  dplyr::select(site, chl)

chl.2005.jun <- data.frame(chl.2005jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005jun) %>% 
  dplyr::select(site, chl)

chl.2005.jul <- data.frame(chl.2005jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005jul) %>% 
  dplyr::select(site, chl)

chl.2005.aug <- data.frame(chl.2005aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005aug) %>% 
  dplyr::select(site, chl)


#2006 

chl.2006.sep <- data.frame(chl.2006sep) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2006sep) %>% 
  dplyr::select(site, chl)

chl.2006.oct <- data.frame(chl.2006oct) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2006oct) %>% 
  dplyr::select(site, chl)

chl.2006.nov <- data.frame(chl.2006nov) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2006nov) %>% 
  dplyr::select(site, chl)

chl.2006.dec <- data.frame(chl.2006dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006dec) %>% 
  dplyr::select(site, chl)

chl.2006.jan <- data.frame(chl.2006jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006jan) %>% 
  dplyr::select(site, chl)

chl.2006.feb <- data.frame(chl.2006feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006feb) %>% 
  dplyr::select(site, chl)


chl.2006.mar <- data.frame(chl.2006mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006mar) %>% 
  dplyr::select(site, chl)

chl.2006.apr <- data.frame(chl.2006apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006apr) %>% 
  dplyr::select(site, chl)

chl.2006.may <- data.frame(chl.2006may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006may) %>% 
  dplyr::select(site, chl)

chl.2006.jun <- data.frame(chl.2006jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006jun) %>% 
  dplyr::select(site, chl)

chl.2006.jul <- data.frame(chl.2006jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006jul) %>% 
  dplyr::select(site, chl)

chl.2006.aug <- data.frame(chl.2006aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006aug) %>% 
  dplyr::select(site, chl)

##2007

chl.2007.jan <- data.frame(chl.2007jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007jan) %>% 
  dplyr::select(site, chl)

chl.2007.feb <- data.frame(chl.2007feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007feb) %>% 
  dplyr::select(site, chl)


chl.2007.mar <- data.frame(chl.2007mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007mar) %>% 
  dplyr::select(site, chl)

chl.2007.apr <- data.frame(chl.2007apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007apr) %>% 
  dplyr::select(site, chl)

chl.2007.may <- data.frame(chl.2007may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007may) %>% 
  dplyr::select(site, chl)

chl.2007.jun <- data.frame(chl.2007jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007jun) %>% 
  dplyr::select(site, chl)

chl.2007.jul <- data.frame(chl.2007jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007jul) %>% 
  dplyr::select(site, chl)

chl.2007.aug <- data.frame(chl.2007aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007aug) %>% 
  dplyr::select(site, chl)

###########################################################################

chl.2002.sep <- data.frame(chl.2002sep) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2002sep) %>% 
  dplyr::select(site, chl)

chl.2002.oct <- data.frame(chl.2002oct) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2002oct) %>% 
  dplyr::select(site, chl)

chl.2002.nov <- data.frame(chl.2002nov) %>% 
  dplyr::mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  dplyr::mutate(chl = chl.2002nov) %>% 
  dplyr::select(site, chl)

chl.2003wb <- dplyr::bind_rows(chl.2002.sep, chl.2002.oct, chl.2002.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl_season_before = mean(chl)) %>% 
  mutate(year = 2003) %>% 
  mutate(season = "W")

chl.2002.dec <- data.frame(chl.2002dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2002dec) %>% 
  dplyr::select(site, chl)

chl.2003.jan <- data.frame(chl.2003jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003jan) %>% 
  dplyr::select(site, chl)

chl.2003.feb <- data.frame(chl.2003feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003feb) %>% 
  dplyr::select(site, chl)

chl.2003w <- dplyr::bind_rows(chl.2002.dec, chl.2003.jan, chl.2003.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2003) %>% 
  mutate(season = "W")

chl.2003.w <- merge(chl.2003w, chl.2003wb)

chl.2003spb <- chl.2003w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2003) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2003.mar <- data.frame(chl.2003mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003mar) %>% 
  dplyr::select(site, chl)

chl.2003.apr <- data.frame(chl.2003apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003apr) %>% 
  dplyr::select(site, chl)

chl.2003.may <- data.frame(chl.2003may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003may) %>% 
  dplyr::select(site, chl)

chl.2003sp <- dplyr::bind_rows(chl.2003.mar, chl.2003.apr, chl.2003.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2003) %>% 
  mutate(season = "Sp")

chl.2003.sp <- merge(chl.2003sp, chl.2003spb)

##summer 2008 
chl.2003sub <- chl.2003sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2003) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2003.jun <- data.frame(chl.2003jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003jun) %>% 
  dplyr::select(site, chl)

chl.2003.jul <- data.frame(chl.2003jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003jul) %>% 
  dplyr::select(site, chl)

chl.2003.aug <- data.frame(chl.2003aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003aug) %>% 
  dplyr::select(site, chl)

chl.2003su <- dplyr::bind_rows(chl.2003.jun, chl.2003.jul, chl.2003.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2003) %>% 
  mutate(season = "Su")

chl.2003.su <- merge(chl.2003su, chl.2003sub)

##fall 2008 
chl.2003fb <- chl.2003su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2003) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2003.sep <- data.frame(chl.2003sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003sep) %>% 
  dplyr::select(site, chl)

chl.2003.oct <- data.frame(chl.2003oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003oct) %>% 
  dplyr::select(site, chl)

chl.2003.nov <- data.frame(chl.2003nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003nov) %>% 
  dplyr::select(site, chl)

chl.2003f <- dplyr::bind_rows(chl.2003.sep, chl.2003.oct, chl.2003.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2003) %>% 
  mutate(season = "F")

chl.2003.f <- merge(chl.2003f, chl.2003fb)

###########################################################################


chl.2004wb <- dplyr::bind_rows(chl.2003.sep, chl.2003.oct, chl.2003.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl_season_before = mean(chl)) %>% 
  mutate(year = 2004) %>% 
  mutate(season = "W")

chl.2003.dec <- data.frame(chl.2003dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2003dec) %>% 
  dplyr::select(site, chl)

chl.2004.jan <- data.frame(chl.2004jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004jan) %>% 
  dplyr::select(site, chl)

chl.2004.feb <- data.frame(chl.2004feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004feb) %>% 
  dplyr::select(site, chl)

chl.2004w <- dplyr::bind_rows(chl.2003.dec, chl.2004.jan, chl.2004.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2004) %>% 
  mutate(season = "W")

chl.2004.w <- merge(chl.2004w, chl.2004wb)

chl.2004spb <- chl.2004w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2004) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2004.mar <- data.frame(chl.2004mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004mar) %>% 
  dplyr::select(site, chl)

chl.2004.apr <- data.frame(chl.2004apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004apr) %>% 
  dplyr::select(site, chl)

chl.2004.may <- data.frame(chl.2004may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004may) %>% 
  dplyr::select(site, chl)

chl.2004sp <- dplyr::bind_rows(chl.2004.mar, chl.2004.apr, chl.2004.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2004) %>% 
  mutate(season = "Sp")

chl.2004.sp <- merge(chl.2004sp, chl.2004spb)

##summer 2008 
chl.2004sub <- chl.2004sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2004) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2004.jun <- data.frame(chl.2004jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004jun) %>% 
  dplyr::select(site, chl)

chl.2004.jul <- data.frame(chl.2004jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004jul) %>% 
  dplyr::select(site, chl)

chl.2004.aug <- data.frame(chl.2004aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004aug) %>% 
  dplyr::select(site, chl)

chl.2004su <- dplyr::bind_rows(chl.2004.jun, chl.2004.jul, chl.2004.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2004) %>% 
  mutate(season = "Su")

chl.2004.su <- merge(chl.2004su, chl.2004sub)

##fall 2008 
chl.2004fb <- chl.2004su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2004) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2004.sep <- data.frame(chl.2004sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004sep) %>% 
  dplyr::select(site, chl)

chl.2004.oct <- data.frame(chl.2004oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004oct) %>% 
  dplyr::select(site, chl)

chl.2004.nov <- data.frame(chl.2004nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004nov) %>% 
  dplyr::select(site, chl)

chl.2004f <- dplyr::bind_rows(chl.2004.sep, chl.2004.oct, chl.2004.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2004) %>% 
  mutate(season = "F")

chl.2004.f <- merge(chl.2004f, chl.2004fb)

###########################################################################


chl.2005wb <- dplyr::bind_rows(chl.2004.sep, chl.2004.oct, chl.2004.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl_season_before = mean(chl)) %>% 
  mutate(year = 2005) %>% 
  mutate(season = "W")

chl.2004.dec <- data.frame(chl.2004dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2004dec) %>% 
  dplyr::select(site, chl)

chl.2005.jan <- data.frame(chl.2005jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005jan) %>% 
  dplyr::select(site, chl)

chl.2005.feb <- data.frame(chl.2005feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005feb) %>% 
  dplyr::select(site, chl)

chl.2005w <- dplyr::bind_rows(chl.2004.dec, chl.2005.jan, chl.2005.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2005) %>% 
  mutate(season = "W")

chl.2005.w <- merge(chl.2005w, chl.2005wb)

chl.2005spb <- chl.2005w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2005) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2005.mar <- data.frame(chl.2005mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005mar) %>% 
  dplyr::select(site, chl)

chl.2005.apr <- data.frame(chl.2005apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005apr) %>% 
  dplyr::select(site, chl)

chl.2005.may <- data.frame(chl.2005may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005may) %>% 
  dplyr::select(site, chl)

chl.2005sp <- dplyr::bind_rows(chl.2005.mar, chl.2005.apr, chl.2005.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2005) %>% 
  mutate(season = "Sp")

chl.2005.sp <- merge(chl.2005sp, chl.2005spb)

##summer 2008 
chl.2005sub <- chl.2005sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2005) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2005.jun <- data.frame(chl.2005jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005jun) %>% 
  dplyr::select(site, chl)

chl.2005.jul <- data.frame(chl.2005jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005jul) %>% 
  dplyr::select(site, chl)

chl.2005.aug <- data.frame(chl.2005aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005aug) %>% 
  dplyr::select(site, chl)

chl.2005su <- dplyr::bind_rows(chl.2005.jun, chl.2005.jul, chl.2005.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2005) %>% 
  mutate(season = "Su")

chl.2005.su <- merge(chl.2005su, chl.2005sub)

##fall 2008 
chl.2005fb <- chl.2005su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2005) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2005.sep <- data.frame(chl.2005sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005sep) %>% 
  dplyr::select(site, chl)

chl.2005.oct <- data.frame(chl.2005oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005oct) %>% 
  dplyr::select(site, chl)

chl.2005.nov <- data.frame(chl.2005nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005nov) %>% 
  dplyr::select(site, chl)

chl.2005f <- dplyr::bind_rows(chl.2005.sep, chl.2005.oct, chl.2005.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2005) %>% 
  mutate(season = "F")

chl.2005.f <- merge(chl.2005f, chl.2005fb)

###########################################################################


chl.2006wb <- dplyr::bind_rows(chl.2005.sep, chl.2005.oct, chl.2005.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl_season_before = mean(chl)) %>% 
  mutate(year = 2006) %>% 
  mutate(season = "W")

chl.2005.dec <- data.frame(chl.2005dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2005dec) %>% 
  dplyr::select(site, chl)

chl.2006.jan <- data.frame(chl.2006jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006jan) %>% 
  dplyr::select(site, chl)

chl.2006.feb <- data.frame(chl.2006feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006feb) %>% 
  dplyr::select(site, chl)

chl.2006w <- dplyr::bind_rows(chl.2005.dec, chl.2006.jan, chl.2006.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2006) %>% 
  mutate(season = "W")

chl.2006.w <- merge(chl.2006w, chl.2006wb)

chl.2006spb <- chl.2006w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2006) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2006.mar <- data.frame(chl.2006mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006mar) %>% 
  dplyr::select(site, chl)

chl.2006.apr <- data.frame(chl.2006apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006apr) %>% 
  dplyr::select(site, chl)

chl.2006.may <- data.frame(chl.2006may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006may) %>% 
  dplyr::select(site, chl)

chl.2006sp <- dplyr::bind_rows(chl.2006.mar, chl.2006.apr, chl.2006.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2006) %>% 
  mutate(season = "Sp")

chl.2006.sp <- merge(chl.2006sp, chl.2006spb)

##summer 2008 
chl.2006sub <- chl.2006sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2006) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2006.jun <- data.frame(chl.2006jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006jun) %>% 
  dplyr::select(site, chl)

chl.2006.jul <- data.frame(chl.2006jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006jul) %>% 
  dplyr::select(site, chl)

chl.2006.aug <- data.frame(chl.2006aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006aug) %>% 
  dplyr::select(site, chl)

chl.2006su <- dplyr::bind_rows(chl.2006.jun, chl.2006.jul, chl.2006.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2006) %>% 
  mutate(season = "Su")

chl.2006.su <- merge(chl.2006su, chl.2006sub)

##fall 2008 
chl.2006fb <- chl.2006su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2006) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2006.sep <- data.frame(chl.2006sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006sep) %>% 
  dplyr::select(site, chl)

chl.2006.oct <- data.frame(chl.2006oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006oct) %>% 
  dplyr::select(site, chl)

chl.2006.nov <- data.frame(chl.2006nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006nov) %>% 
  dplyr::select(site, chl)

chl.2006f <- dplyr::bind_rows(chl.2006.sep, chl.2006.oct, chl.2006.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2006) %>% 
  mutate(season = "F")

chl.2006.f <- merge(chl.2006f, chl.2006fb)

###########################################################################


chl.2007wb <- dplyr::bind_rows(chl.2006.sep, chl.2006.oct, chl.2006.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl_season_before = mean(chl)) %>% 
  mutate(year = 2007) %>% 
  mutate(season = "W")

chl.2006.dec <- data.frame(chl.2006dec) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2006dec) %>% 
  dplyr::select(site, chl)

chl.2007.jan <- data.frame(chl.2007jan) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007jan) %>% 
  dplyr::select(site, chl)

chl.2007.feb <- data.frame(chl.2007feb) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007feb) %>% 
  dplyr::select(site, chl)

chl.2007w <- dplyr::bind_rows(chl.2006.dec, chl.2007.jan, chl.2007.feb) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2007) %>% 
  mutate(season = "W")

chl.2007.w <- merge(chl.2007w, chl.2007wb)

chl.2007spb <- chl.2007w %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2007) %>% 
  mutate(season = "Sp") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2007.mar <- data.frame(chl.2007mar) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007mar) %>% 
  dplyr::select(site, chl)

chl.2007.apr <- data.frame(chl.2007apr) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007apr) %>% 
  dplyr::select(site, chl)

chl.2007.may <- data.frame(chl.2007may) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007may) %>% 
  dplyr::select(site, chl)

chl.2007sp <- dplyr::bind_rows(chl.2007.mar, chl.2007.apr, chl.2007.may) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2007) %>% 
  mutate(season = "Sp")

chl.2007.sp <- merge(chl.2007sp, chl.2007spb)

##summer 2008 
chl.2007sub <- chl.2007sp %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2007) %>% 
  mutate(season = "Su") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2007.jun <- data.frame(chl.2007jun) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007jun) %>% 
  dplyr::select(site, chl)

chl.2007.jul <- data.frame(chl.2007jul) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007jul) %>% 
  dplyr::select(site, chl)

chl.2007.aug <- data.frame(chl.2007aug) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007aug) %>% 
  dplyr::select(site, chl)

chl.2007su <- dplyr::bind_rows(chl.2007.jun, chl.2007.jul, chl.2007.aug) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2007) %>% 
  mutate(season = "Su")

chl.2007.su <- merge(chl.2007su, chl.2007sub)

##fall 2008 
chl.2007fb <- chl.2007su %>%
  dplyr::select(site, chl) %>% 
  mutate(chl_season_before = chl) %>% 
  mutate(year = 2007) %>% 
  mutate(season = "F") %>% 
  dplyr::select(site, year, season, chl_season_before)


chl.2007.sep <- data.frame(chl.2007sep) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007sep) %>% 
  dplyr::select(site, chl)

chl.2007.oct <- data.frame(chl.2007oct) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007oct) %>% 
  dplyr::select(site, chl)

chl.2007.nov <- data.frame(chl.2007nov) %>% 
  mutate(site = c("ABUR", "AHND", "AQUE", "BULL", "CARP", "GOLB",
                  "IVEE", "MOHK", "NAPL", "SCDI", "SCTW")) %>% 
  mutate(chl = chl.2007nov) %>% 
  dplyr::select(site, chl)

chl.2007f <- dplyr::bind_rows(chl.2007.sep, chl.2007.oct, chl.2007.nov) %>% 
  filter(chl != "NA") %>% 
  group_by(site) %>% 
  summarise(chl = mean(chl)) %>% 
  mutate(year = 2007) %>% 
  mutate(season = "F")

chl.2007.f <- merge(chl.2007f, chl.2007fb)

chl_seasonal_lte <- bind_rows(chl.2003.w, chl.2003.sp, chl.2003.su, chl.2003.f,
                              chl.2004.w, chl.2004.sp, chl.2004.su, chl.2004.f,
                              chl.2005.w, chl.2005.sp, chl.2005.su, chl.2005.f,
                              chl.2006.w, chl.2006.sp, chl.2006.su, chl.2006.f,
                              chl.2007.w, chl.2007.sp, chl.2007.su, chl.2007.f,
                              chl.2008.w, chl.2008.sp, chl.2008.su, chl.2008.f,
                              chl.2009.w, chl.2009.sp, chl.2009.su, chl.2009.f,
                              chl.2010.w, chl.2010.sp, chl.2010.su, chl.2010.f,
                              chl.2011.w, chl.2011.sp, chl.2011.su, chl.2011.f,
                              chl.2012.w, chl.2012.sp, chl.2012.su, chl.2012.f,
                              chl.2013.w, chl.2013.sp, chl.2013.su, chl.2013.f,
                              chl.2014.w, chl.2014.sp, chl.2014.su, chl.2014.f,
                              chl.2015.w, chl.2015.sp, chl.2015.su, chl.2015.f,
                              chl.2016.w, chl.2016.sp, chl.2016.su, chl.2016.f,
                              chl.2017.w, chl.2017.sp, chl.2017.su, chl.2017.f,
                              chl.2018.w, chl.2018.sp, chl.2018.su, chl.2018.f,
                              chl.2019.w, chl.2019.sp, chl.2019.su, chl.2019.f,
                              chl.2020.w, chl.2020.sp, chl.2020.su, chl.2020.f,
                              chl.2021.w, chl.2021.sp, chl.2021.su) %>% 
  arrange(site, year) %>% 
  filter(site != "ABUR") %>% 
  filter(site != "AHND") %>% 
  filter(site != "BULL") %>% 
  filter(site != "GOLB") %>% 
  filter(site != "SCDI") %>% 
  filter(site != "SCTW")
chl_anom <- chl_seasonal_lte %>% 
  group_by(season) %>% 
  summarise(chl = mean(chl))

chl_seasonal_anom <- chl_seasonal_lte %>% 
  mutate(chl_anom = case_when(
    season == "W" ~ (chl - 3.578954),
    season == "Sp" ~ (chl - 8.639772),
    season == "Su" ~ (chl - 2.643702),
    season == "F" ~ (chl -  2.563556))) %>% 
  mutate(chl_anom_before = case_when(
    season == "W" ~ (chl_season_before - 2.563556),
    season == "Sp" ~ (chl_season_before - 3.578954),
    season == "Su" ~ (chl_season_before - 8.639772),
    season == "F" ~ (chl_season_before -    2.643702)))
## Write csv document to be read in to "Michaud_et_al_Coms_Bio_Analysis_Code.Rmd"

## write.csv(chl_seasonal_anom, "~/Library/CloudStorage/Box-Box/PHD/Chl_Script/chl_seasonal.csv", row.names = TRUE)